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PREFACE 



This publication contains reference 
information about control blocks and data 
areas associated with three major 
components of VM/370: CP, CMS, and RSCS. 

This publication contains three sections 
and five appendixes: 

• "Section 1. CP Data Areas and Control 
Blocks" contains information about CP 
data areas and control blocks. 

• "Section 2. CMS Data Areas and Control 
blocks" contains information on CMS data 
areas and control blocks. 

• "Section 3. RSCS Data Areas and Control 
Blocks" contains information on RSCS 
data areas and control blocks. 

• "Appendix A: CP and RSCS Equate Symbols" 
contains assembler language equate 
symbols used by CP and RSCS to reference 
data. 



RELATED PUBLICATIONS 



This publication is intended to be used in 
conjunction with |BM Virtual Macjiine 
S^Siiii^Zl 20 • S][s£§l l!2^4£ and Problem 
Determination Guide, Order No. SY20-0885. 
Users of the publication IBM Virtual 
l^^^hine FaLcility;^370: System Programmer's 
Guilir Order No. GC20-1807 will also find 
this publication useful. 

For a glossary of VM/370 terms, see the 
JM 3[i£t2i^l Machine Facilities 70 : Glossary 
and Master Index, Order No. GC20-1813. 

The hardware and software support 
personnel or installation system programmer 
should use the IBM Virtual Machine 
Fa c il i t2/3 7 : Interactive Problem Control 
System (IPCS) User's "Guide, Order No. 
GC20-1823, for information on how to use 
the facilities of IPCS. 



"Appendix B: RSCS Control Areas" 
contains RSCS control areas, which 
define constants and variables used 
during execution. 

"Appendix C: RSCS Request Elements" 
contains RSCS request elements, which 
are tables used by RSCS for task-to-task 
communication. 

"Appendix D: CMS Equate Symbols" 
contains CMS equate symbols. 

"Appendix E: Data Areas and Control 
Block References" contains information 
on modules that reference data areas and 
control blocks. 



OTHER VM/370 DATA AREAS AND CONTROL BLOCKS 



HOW TO USE THIS PUBIjICATION 



The CMS and RSCS components function under 
control of CP. Each component creates, 
updates, and erases its own control blocks 
and data areas. 

Control blocks and data areas are 
generally blocks of related information 
applicable to one or more system 
functions. They are usually defined by the 
DSECT instruction. The blocks can reflect 
current status, history information, or 
combinations of both, applicable to VM/370 
functions. Control blocks and data areas 
provide the linkage and information for the 
user, the hardware, and the programs to 
work as one entity for the successful 
execution of a job, task, or process. 



Some data areas and control blocks relating 
to VM/370 service and support programs are 
not included in this publication. 
Information on these data areas and control 
blocks can be found in the IBM Virtual 
Machine Facilitie370: Service Routines 
Program Logic manual. Order No. SY20-0882. 



This publication addresses and describes 
the major control blocks associated with 
CP, CMS, and RSCS. Generally, data areas, 
or scratch areas that are created and exist 
only during the execution of a particular 
module are not described in this 
publication. In this publication, the data 
areas and control blocks are arranged in 
alphabetical order by DSECT name. 

For every data area or control block, a 
statement is given that defines the use of 
the data area or control block. This 
statement is followed by a formatted block 
showing the fields defined in the data area 



or control block and the displacement Into 
the DSECT of that field. 

The formatted blocks for CP and CMS 
control areas are 8 bytes wide, showing two 
fallwords per line. RSCS control blocks 
are 4 bytes wide. 

In the case where the name of a field is 
too large to fit into the formatted line, a 
pointer to the definition of the field is 
used instead of the name of the field. 
This pointer usually takes the form A*1, 
h*2, etc. When there is a particularly 



large field (one that uses more than three 
or four lines of the formatted block) , 
ellipses are used in the block to show that 
the displacement of this field is larger 
than can be shown in the block. 

The formatted block is followed by 
listing-related information: the 
hexadecimal displacement of the field into 
the DSECT, the name of the field and its 
definition in the listing, and a brief 
description of the contents and meaning of 
the field. 
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Figure 1. CP Control Block Relationships.. 
Figure 2. CMS Control Block Relationships. 
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ACCTBLOK, ACNTBLOK 



ACCTBLOK: USER ACCOUMTING BLOCK 



ACCTBLCK provides header information for spool files. The VMACOUNT field (hex 168) in 
the VMBLOK points to ACCTBLOK. 



I 



ACCTUSER 



8 I 



I 



10 I 



ACCTACNO 
ACCTDIST 



Hexadecimal Field 
Displacement Name 





8 

10 



ACCTUSER DS 
ACCTACNO DS 
ACCTDIST DS 



CL8 
CL8 
CL8 



Field Description, Contents, Meaning 

Virtual machine identification 
Virtual machine accounting number 
Virtual machine distribution number 



ACCTLENG EQU (*-ACCTBLOK) /8 Size of ACCTBLOK in doublewords (X«03') 



ACMTBLCK: ACCOUNTING CARD BUFFER BLOCK 

ACNTBLOK provides accounting and statistical information on each user that has used 
VM/370 facilities. The ARSPAC field (hex 39C) in the Prefix Storage Area (PSA) points to 
the start of the chain of ACNTBLOKs. 



58 



ACNTCCW 



ACNTNEXT 



ACNTDATA (See "Format for User Cards") 



ACNTBACK 



— I 



Hexadecimal Field 
Displacement Name 



5C 



ACNTCCH DS 
ACNTNEXT DS 
ACNTDATA DS 

ACNTBACK DS 

ACNTSIZE EQU 



D 
F 
CL80 



Field Description, Contents, Meaning 

Punch CCH for accounting card 

Address of next ACNTBLOK in chain 

Accounting information (see "Format For User 

Cards") 

Address of previous ACNTBLOK in chain 



(♦-ACNTBLOK) /8 Size of ACNTBLOK in doublewords (X»OC«) 
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ACNTBLOK 



Foraat for User Cards 



The fields below represent the 80 bytes defined by ACNTDATA in the preceding ACNTBLOK 
data area. 



C I 

I 

14 I 

I 
1C I 



ACNTOSEE 



ACNTNUM 
ACNTSTOP 



20 
2C 
34 
3C 
44 
4C 
54 



ACNTTIME 
ACNTPGBD 
ACNTIOCT 
ACNTLINS 

ACNTRSV2 



ACMTCONT 
ACNTVTIM 
ACNTPGWT 
ACNTPNCH 
ACNTCBDS 



ACNTRSV1 



I ACHTCODE 



Hexadecimal Field 
Displacement Name 







ORG 


ACNTDATA 


C 


ACNTUSER 


DS 


CL8 


14 


ACNTHUM 


DS 


CL8 


1C 


ACNTSTOP 


DS 


CL12 


28 


ACNTCONT 


DS 


IF 


2C 


ACNTTIME 


DS 


IF 


30 


ACNTVTIM 


DS 


IF 


34 


ACNTPGRD 


DS 


IF 


38 


ACNTPGWT 


DS 


IF 


3C 


ACNTIOCT 


DS 


IF 


40 


ACNTPNCH 


DS 


IF 


44 


ACNTLINS 


DS 


IF 


48 


ACNTCRDS 


DS 


IF 


4C 


ACNTRSV1 


DS 


2F 


54 


ACNTRSV2 


DS 


XL6 


5A 


ACNTCODE 


DS 


1H 




Card Codes for 


ACNTCODE 






DC 


C«CO' 






DC 


C»x1» 






DC 


C»x2' 






DC 


C'x3' 





ORG 


ACNTTIME 


2C 


ACNTDEVC DS 


XL4 


30 


ANCTNCYL DS 


1H 



Field Description, Contents, Meaning 



Virtual machine identification 

Virtual machine accounting number 

Date and time of accounting MMDDYYHHSS 

Number of seconds connected 

Milliseconds of CPU time used 

Milliseconds of virtual CPU time used 

Total page reads 

Total page writes 

Virtual SIO count for nonspooled I/O 

Virtual card count for spooled punch 

Virtual line count for spooled printer 

Virtual card count for spooled reader 

Reserved for IBM use 

Reserved for IBM use 

Accounting card identification code 



User-formatted accounting card 
User virtual machine accounting card 
User dedicated device accounting card 
User temporary disk space accounting card 

wher e : 

X = C if the card is initiated via a DIAGNOSE Code X'4C' 

X = if the card is initiated via CP command processing. 



Device code (CTFM) . See DEVTYPE copy file 
Number of cylinders of T— disk space 
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ALOCBLOK 



ALOCBLOK: DASD CYLINDER ALLOCATION BLOCK 

ALOCBLOK provides information on temporary disk space available to a virtual machine. 
The BDEVALLN field (hex 28) in the RDEVBLOK points to the ALOCBLOK. 

I ALOCPNT I ALOCUSED | ALOCMAX 

8 I ALOCMAP 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



ALOCPNT DS 
ALOCUSED DS 
ALOCMAX DS 
ALOCMAP DS 



IF 
1H 
1H 
OF 



Pointer to next ALOCBLOK on chain 
Number of cylinders currently in use 
Maximum number of cylinders available 
Cylinder allocation bit map 



li£s defined in ALOCMAP 

= Cylinder is available 

1 = Cylinder has been allocated 

Note: The size of the ALOCMAP is variable and depends on the number of 
cylinders on the device. Generally, the size of the ALOCBLOK is determined 
by the following formula: 

ALOCSIZE(doublewords) = ( ( ( (ALOCMAX+7) /8) +7)/8) + 1 



where: 














ALOCMAX 


for 


2305- 


-1 


= 


48 


cylinders 




for 


2305- 


-2 


= 


96 


cylinders 




for 


2314 




= 


203 


cylinders 




for 


3330- 


-1 


= 


404 


cylinders 




for 


333 0- 


-2 


= 


404 


cylinders 




for 


3330- 


-11 


= 


808 


cylinders 




for 


3333- 


-1 


= 


404 


cylinders 




for 


3333- 


-11 


= 


808 


cylinders 




for 


3340- 


-35 


= 


349 


cylinders 




for 


3340- 


-70 


= 


698 


cylinders 




for 


335 




= 


555 


cylinders 



Any bits in the map that represent cylinders not present on the device are 
set to 1. 

For Tem£orari Disk Allocation Blocks 

ORG ALOCUSED 
ALOCCYLI DS 1H First cylinder of T-disk area 

AL0CCYL2 DS 1H Last cylinder of T-disk area 

Bytes defined in ALOCMAP 
X»00' = Cylinder is available 
X'AA* = Cylinder has been allocated 

Note: The size of the T— disk ALOCMAP is variable and depends on the number 
of cylinders in the range ALOCCYLI to AL0CCYL2. Generally, the size of a 
given block is determined by the following formula: 

ALOCSIZE(doublewords) = ( {AL0CCYL2-AL0CCYL1+8) /8) + 1 

Bytes for cylinders that are not available are marked allocated. 
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BSCBLOK 

BSCBLOK: BINARY SYNCHRONOUS COMMUNICATION gONTROL BLOCK 

BSCBLOK provides status, control information buffers (necessary for polling and 
addressing) , and channel programs for 3270 remote equipment. The RDEVBSC field (hex 30) 
in the RDEVBLOK points to the BSCBLOK. 




8 
10 
18 
20 
28 
30 
38 
40 
48 
50 
58 
60 
68 
70 
78 
80 
88 





BSCSCCW1 




BSCSCCH2 


1 BSCSCCH3 




BSCPCCWI 


1 BSCPCCW2 


1 BSCPCCW3 




BSCPCCH4 




BSCECCW1 




BSCECCW2 




BSCUECCH 


1 BSCSEL 


1 B*1 


1 B*2 1 B*3 1 


BSCINDEX 1 BSCRESVD 


1 BSCSPTR 


1 BSCAUSER 


1 BSCUCOPY 


1 BSCRSTRT 


1 BSCCNT 1 


BSCSENSE 1 BSCRCVD | BSCSEND 


1 BSCUSER1 


1 BSCRROBN 


1 BSCTMRQ 


1 BSCRESP 1 

_ ..--, .._ ,,._„._ .,• 




BSCREAD 



128 I 
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ESCBLOK 



Hexadecimal 


Field 






Displacement 


Name 









BSCSCCH1 


DS 


ID 


8 


BSCSCCH2 


DS 


ID 


10 


BSCSCCH3 


DS 


ID 


18 


BSCPCCW1 


DS 


ID 


20 


BSCPCCW2 


DS 


ID 


28 


BSCPCCH3 


DS 


ID 


30 


BSCPCCW4 


DS 


ID 


38 


BSCECCH1 


DS 


ID 


i\0 


BSCECCW2 


DS 


ID 


48 


BSCUECCW 


DS 


ID 


50 


BSCSEL 


DS 


7X 


57 


BSCFLAG 


DS 


IX 



B*1 



Field Description, Contents, Meaning 

CCH for write reset operation 

CCW for addressing or selection 

CCH for read response to selection 

CCH for write reset operation 

CCH for general/specific polling 

CCW for NOP command 

CCH for read text 

CCH for write error response 

CCH to transfer control to read CCH 

CCH for read response on time-out 

Addressing/polling entry 

BSCFLAG bits 



lii§ defined in BSCFLAG 

BSCRVI EQO X«80' 

BSCENQ EQU X»UO» 

BSCCOPY EQU X«20' 

BSCOPIED EQU XMO' 

BSCREGEN EQU Xi08* 

BSCTSTRQ EQU X«04» 

BSCLOG EQU X«02» 

BSCSCAN EQU X'01' 



Sending RVI response 
ENQ in data from station 
COPY function is active 
Initiate COPY function 
Regeneration error 
Ignore input processing 
Bypass force message at logoff 
Second scan for write reguest 



58 



BSCFLAG1 DS 



IX 



B*2 



BSCFLAG 1 bits 



Bits defined in BSCFLAG 1 





BSCETB "i 


EQU 


X'80'^ 




BSCIGN 


BQU 


X'40' 


59 


BSCLINE 


DS 


IX 


5A 


BSCINDEX 


DS 


1H 


5C 


BSCRESVD 


DS 


4X 


60 


BSCSPTR 


DS 


1F 


64 


BSCAUSER 


DS 


IF 


68 


BSCUCOPY 


DS 


IF 


6C 


BSCRSTRT 


DS 


IF 


70 


BSCCNT 


DS 


IB 


72 


BSCSENSE 


DS 


1H 


74 


BSCRCVD 


DS 


1H 


76 


BSCSEHD 


DS 


1H 


78 


BSCUSER1 


DS 


IF 


7C 


BSCRROBN 


DS 


IF 


80 


BSCTMRQ 


DS 


IF 


84 


BSCRESP 


DS 


1H 


86 


BSCREAD 


DS 


CL257 




BSCSIZE1 


EQU 


♦-(BSCREA 




BSCSIZE2 


EQU 


(BSCREAD- 




BSCSIZB 


EQU 


(*-BSCBLO; 



B*3 



Station transmitted block record 
Ignore block record 

Line coordinate for input area 
Index value for available space in input 
buffer 



Reserved for IBM use 

Hrite CCH string address; address of buffer 

Address of active resource 

Address of COPY reguestor's NICBLOK 

Address of restart CCH string 

Retry count 

Sense bytes from remote station 

Expected received ACK (ACK-O/ACK-1) 

Sending ACK (ACK-0/ACK~1) 

Reserved for IBM use 

Address of active user in gueue 

Pointer to TRQBLOK for poll delay 

Response buffer for selection 

Head buffer for polling 
) Read buffer size in bytes 
EAD-BSCBLOK) BSC Header size in bytes 

) 18 BSC blocksize in doublewords 
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BOFFER 



BUFFER 



BUFFER Is a buffer area that contains console input to be used by CP. 

I 
. 



88 



BUFIN 



BUFMXT 



BUFCNT 



Hexadecimal Field 
Displacement Name 




88 
8C 



BUFIN 


DS 


CL136 


BUFNXT 


DS 


IF 


BUFCNT 


DS 


IF 



Bits defined in BUFCNT 
BUFINLTH EQU l'^BUFIN 
BUFSIZE EQU (*-BUFFER) /8 



Field Description, Contents, Meaning 

Input line 

Pointer to next byte in BUFFER 

Count of characters in input line 



Size of input line in bytes (136) 

Size of input line in doublewords (XM2') 
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CCHREC 



CCHREC: CHANNEL CHECK HANDLER RECORD 



CCHREC provides statistical data for error recovery and/or error recording related to a 
previously performed channel operation that did not successfully complete. 






r 

1 B*1 1 B*2 


1 B*3 1 B*4 1 CCSH2REV | B*5 


B*6 1 


8 




CCDATE 




10 




CCCPUID 




18 




CCPROGID 




20 




FAILADD 




28 








30 




FAILCCH 




38 




FAILCSH 




40 


B*7 1 B*8 


1 B*9 1 B*10 1 CCDEVTYP 




48 


CCHANID 


1 CCHCUA 1 CCHMP 




50 


CCHLOG 





Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 






CCRECTYP 


DS 


IX 


B*1 


Record type 


1 


CCOPSYS 


DS 


IX 


B*2 


Operating system 


2 


CCSH1 


DS 


IX 


B*3 


Switch 1 


3 


CCSW2 


DS 


IX 


B*4 


Switch 2 


4 


CCSH2REV 


DS 


2X 




Unused 


6 


CCRECNT 


DS 


IX 


B*5 


Record count 


7 


CCRECHT1 


DS 


IX 


B*6 


Unused 


8 


CCDATE 


DS 


ID 




Date and time 


10 


CCCPUID 


DS 


ID 




CPU ID 


18 


CCPROGID 


DS 


ID 




Userid 


20 


FAILADD 


DS 


8H 




Active I/O units 


30 


FAILCCH 


DS 


ID 




Failing CCH 


38 


FAILCSH 


DS 


ID 




Failing CSH 


40 


FAILECSH 


DS 


OF 




Failing ECSH 


40 


IGPRGFLG 


DS 


CL1 


B*7 


Program flag bits 




Bits def. 


Lned 


in IGPRGFLG 






CCHSIOB 


'equ 


X'80' 




Start I/O bit 




CCHINTB 


EQU 


X»40" 




Interrupt bit 




CCHTIO 


EQU 


X«20» 




Test I/O bit 




CCHHIO 


EQU 


X'10« 




Halt I/O bit 




CCHSNSB 


EQU 


X'04' 




Sense data stored bit 




CCHCNTB 


EQU 


X«02» 




Count valid bit 




CCHHRYB 


EQU 


X'01" 




No retry bit 
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CCHBEC 



Hexadecimal Field 
Displacement Name 



H^ 



U2 



43 



IGBLAHE DS 



CL1 



Bits defined in IGBLAMJ 
CCHCPD EQO X»80» 
CCHCHNL EQO X«40» 
CCHSCDB EQU X»20» 
CCHSTG EQU XMO* 
CCHINTFC EQU X«08' 



IGVALIDB DS 



CL1 



Bits defined 


in IGVALIDB 


CCHIUTFV EQU 


X»80» 


CCHRCV EQU 


X«10« 


CCHUSV EQU 


X«08» 


CCHCMDV EQU 


x'oa« 


CCHCAV EQU 


X'02» 


CCHDAV EQU 


X'OI" 



IGTERMSQ DS 



CL1 





Bits def, 


ined in IGTERMS^J 




COMPSYS 


EQU 


X'CO* 




COMPSEL 


EQU 


X«80' 




COMPFES 


EQU 


X'40» 




COBPID 


EQU 


X'00« 




CCHDI 


EQU 


X'08' 




Sequence 


Code 


Bits 




RTCODEO 


EQU 


X'OO* 




RTC0DE1 


EQU 


X'01« 




RTC0DE2 


EQU 


X«02' 




RTC0DE3 


EQU 


X»03» 




RTC0DE4 


EQU 


X«04' 




RTC0DE5 


EQU 


X»05» 




RTC0DE6 


EQU 


X'06' 




RTC0DE7 


EQU 


X«07' 


44 


CCDEVTYP 


DS 


IF 


48 


CCHANID 


DS 


CL1 


49 


CCHCUA 


DS 


CL3 


4C 


CCHMP 


DS 


IF 


50 


CCHLGG80 


DS 


0CL112 


50 


CCHLOG70 


DS 


0CL24 


50 


CCHLOG60 


DS 


0CL24 




Bit defi] 


ned in 


CCHLOG60 




CCHSIZEl' 


'equ 


(♦-CCHREC 


50 


CUHADDR 


DS 


IF 




Bit defi] 


ned in 


CUHADDR 




CCHSIZE 


'equ 


(♦-CCHREC 


54 


CCHL0G45 


DS 


0CL96 


54 


CCHLOG35 


DS 


0CL24 



Field Description, Contents, Meaning 
B*8 Probable source of error 



CPU is source of error 

Channel is source of error 

Storage control unit is source of error 

Storage is source of error 

I/O interface is source of error 

B*9 Validity indicator bits 



Interface address valid 
Retry code valid 
Selective reset valid 
Command address valid 
Channel address valid 
Device address valid 

B*10 Termination/seguence code bits 



System reset 

Selective reset 

Forced ending seguence 

Interface disconnect 

Disconnect in seguence code bits 



Retry code values 

for the constructed ECSH 



CP device type 

Channel ID 

Actual failing device address 

Not used 

2880 channel - 112 bytes 

2870 channel - 24 bytes 

2860 channel - 24 bytes 



Size in doublewords (X'OA') 

Unit address stored by integrated channel 

Size in doublewords 

Model 145 integrated channel (96 bytes) 
Model 135 integrated channel (24 bytes) 
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CCPABn 



CCPARM: COMMUNICATIONS CONTROLLER PARAMETER LIST 



CCPARM provides control information used for loading and controlling the 3704/3705 
Communication Controller NCP, EP, and PEP programs and their attached resources. 










CCPNAME 




8 




CCPI 
CCPI 


IDDR 


1 CCPSIZE 




10 


'SIZE 


1 CCPENTRY 




18 


C*1 


1 C*2 


1 C*3 1 C*4 
1 CCPHBFNO 


1 CCPSTOR 




20 


CCPHB 


FSZ 


1 C*5 1 C*6 1 CCPMAXID 




28 








• 



CCPRESID 
(variable number of fullwords) 



Hexadecimal Field 
Displacement Name 



8 

2 
10 
14 
18 



19 
1A 



IB 
1C 
20 
22 
24 
25 



26 
28 



28 
29 
2A 



Field Description, Contents, Meaning 

NCPNAME specified in NAMECP macro 
Origin of control program image 
Control program size in bytes 
Parameter list size in bytes 
Control program entry point address 
Control program type flag 



Network Control Program 
270X Emulation Program 
Partitioned Emulation Program 
First channel adapter type flag 
Second channel adapter type flag 



Channel adapter type 1 

Channel adapter type 2 

Reserved for IBM use 

3704/3705 storage size specified (bytes) 

Buffer size from 'HOST^ macro 

Number of buffers in read list 

First buffer pad count (bytes) 

Subseguent buffer pad count 

HOST Values Required bj VM/370 SuE£ort for 3704/3705 
CCPVPADO EQD 34 34-byte pad in first BTU buffer 

CCPVPAD1 EQD 34 34-byte pad in subsequent buffers 

CCPMAXID DS 1H Highest resource ID defined 

CCPRESID DS IF Resource ID definition 

Definition breakdown 

Resource type flag 

Resource initial status flags 

Subchannel address when in EP mode 



CCPNAME DS 


CL8 




CCPADDR DS 


IF 




CCPSIZE DS 


IF 




CCPPSIZE DS 


IF 




CCPENTRY DS 


IF 




CCPTYPE DS 


IX 


C*1 


Bits defined 


in CCPTYPE 




CCPTNCP EQU 


X«01» 




CCPTEP EQU 


X«02' 




CCPTPEP EQU 


X»03' 




CCPCAONE DS 


IX 


C*2 


CCPCATWO DS 


IX 


C*3 


Bits defined 


in CCPAONE 


and 


CCPTYPE1 EQU 


X»01' 




CCPTYPE2 EQU 


X»02' 




CCPRSV1 DS 


IX 


C*4 


CCPSTOR DS 


IF 




CCPHBPSZ DS 


IB 




CCPHBFNO DS 


1H 




CCPPADO DS 


IX 


C*5 


CCPPAD1 DS 


IX 


C*6 





ORG 


CCPRE 


CCPRSTYP 


DS 


IX 


CCPRSTAT 


DS 


IX 


CCPRSTEP 


DS 


IB 



16 IBM VH/370: Data Areas and Control Block Logic 



CHXBLOK.CHYBLOK 



CHXBLOK AND CSYBIOK: VIRTOiL CHAHNE|.-Tp-CHANNEl! IP AFTER CONTROL BLOCKS 

CHXBLOK and CHYBLOK provide the necessary control for a virtual machine using a virtual 
channel— to-channel adapter (CTCA) . 




8 
10 
18 
20 
28 
30 
38 



r — — - 

1 CHXOTHR 


CHYOTHR 


1 X*1 1 X*2 1 X*3 1 x*a 


Y*1 


1 Y*2 1 Y*3 1 


Y*4 


1 CHXNCCH 


CHYNCCH 


1 CHXRCNT 




CHYRCNT 




1 CHXSTAT 1 CHXYADD 


CHYSTAT 1 CHXYADD 


1 CHXIDAH 




CHYIDAW 




1 CHXCNCT 




CHYCNCT 




1 CHXDATN 




CHYDATN 





Note: As indicated in the illustrated block, the CHXBLOK and CHYBLOK are interleaved 
with a 4-byte displacement. The X-side VDEVBLOK points to the -i-O slot, the Y-side 
VDEVBLCK points to the +4 slot; however, once the virtual connection is made, either side 
can be the X-side or the Y-side since this interleaved arrangement makes the control 
block references completely symmetrical. The dual DSECT definition allows the active 
adapter (defined to be the X-side, arbitrarily) to reference both adapter sides 
concurrently without knowing which is at +0 or at +4. 



Hexadecimal Field 
Displacement Name 






CHXOTHR 


DS 


2F 




8 


CHXFLAG 


DS 


IX 


X*1 




Bits defined 


in CHXFL4G 






CHBHNOP 


EQU 


X'80' 






CHBM370 


EQO 


X»40' 






CHBATTN 


EQU 


X'20' 






CHBREST 


EQO 


XMO' 






CHBEOFL 


EQU 


X«08' 






CHBHIO 


EQU 


X»04» 






CHBHAIT 


EQU 


X»02» 






CHBCENT 


EQU 


X'01" 




9 


CHXCMDB 


DS 


IX 


X*2 


A 


CHXCMDT 


DS 


IX 


X*3 




Bits defined 


in CHXCMDT 






CHBCTNL 


EQU 


X»40' 






CHBRDBK 


EQU 


X'20« 






CHBWEOF 


EQU 


X»10« 






CHBSCMD 


EQU 


X»08» 






CHBSADS 


EQU 


X'04» 






CHBREAD 


EQU 


X'02' 






CHBWRIT 


EQU 


X'01' 





Field Description, Contents, Meaning 

VMBLOK address of Y-side adapter user 
Internal processing flags 



Modified NOP command issued (also in CMDT) 

CTCA operating in System/370 mode 

Attention pending from Y-side 

CTCA has been reset X— side and Y-side 

Force EOF to next Read instruction 

HIO or HDV issued 

CPEXBLOK available for channel reconnect 

Channel end has been preserved on SIO 

Active CCW command byte buffer 

Active CCH command type (RD, HR, etc.) 



Control, other than NOP 

Read backward 

Write EOF 

Sense command byte 

Sense adapter status 

Read 

Write 
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CHXBLOK,CHYBLOK 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Neaning 



B 
C 

10 
18 
20 
22 
24 
28 
30 
38 



B 
C 
10 
18 
20 
22 
24 
28 
30 
38 



CHXPKEY 

CHXHCCW 
CHXRCNT 
CHXSTAT 
CHXYADD 

CHXIDAH 
CHXCNCT 
CHXDATN 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



IX 
4X 
2F 
2F 
1H 
IH 
2H 
2F 
2F 
2F 



X*4 Virtual CAW protection key 

Next CCW FETCH address (real) 
Remaining CCH data count 
Device status accumulation field 
Virtual address of Y— side adapter 

Active indirect data list word 
CPEXBLOK for channel reconnect 
lOBLOK address for deferred 
interruption 



attention 



CHBSIZE EQU (*-CHXBLOK) /8 Total block size in doublewords (X»08«) 



CHYBLOK 
CHYOTHR DS 
CHYFLAG DS 



2F 
IX 



Bits defined in CHYFLAG 





CHBMNOP' 


EQU 


X'SO'i' 




CHBM370 


EQU 


X»40' 




CHBATTN 


EQU 


X'20' 




CHBREST 


EQU 


X'10« 




CHBEOFL 


EQU 


X«08« 




CHBHIO 


EQU 


X»04« 




CHBHAIT 


EQU 


X«02» 




CHBEENT 


EQU 


X»01' 


9 


CHYCMDB 


DS 


IX Y*2 


A 


CHYCMDT 


DS 


IX Y*3 




Bits defined 


in CHYCMDT 



CHBCNTL 
CHBRDBK 
CHBHEOF 
CHBSCBD 
CHBSADS 
CHBREAD 
CHBHRIT 

CHYPKEY 

CHYNCCW 
CHYRCNT 
CHYSTAT 
CHYXADD 

CHYIDAW 
CHYCNCT 
CHYDATN 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



X'40» 
X'20' 
X'lO* 
X'08» 
X«04' 
X'02« 
X'01' 

IX 
4X 
2F 
2F 
IH 
IH 
2H 
2F 
2F 
2F 



Y-side channel adapter block 
VMBLOK address of X-side adapter user 
Y*1 Internal processing flags 



Modified NOP command issued (also in CMDT) 

CTCA operating in System/370 mode 

Attention pending from Y-side 

CTCA has been reset X— side and Y-side 

Force EOF to next READ 

Halt I/O or halt Device issued 

CPEXBLOK available for channel reconnect 

Channel end has been presented on SIO 

Active CCW command byte buffer 
Active CCW command byte 



Control, other than NOP 

Read backward 

Write EOF 

Sense command byte 

Sense adapter status 

Read 

Write 

Y*4 Virtual CAW protection key 

Next CCW fetch address 
Remaining CCW data count 
Device status accumulation field 
Virtual address of X-side adapter 

Active indirect data list word 
CPEXBLOK for channel reconnect 
lOBLOK address for deferred I/O interrupt 
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CKPBLOK 



CKPBLOK: TELECOMMUNICATIONS CHECKPOINT BLOCK 

CKPBLOK provides checkpoint information needed for VM/370 warm start recovery for 
370U/3705 Communication Controllers and enabled lines and resources. 



I CKPSIZE I 

I — 
8 I 
I — 
10 I 



CKPHMAX 
CKPNAME 



I CKPRSV1 



CKPBITS 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 

Size of CKPBLOK in doublewords 
Number of resources checkpointed 
Reserved for IBM use 
370X control program reference name 
Bit map of enabled lines or resources 

CKPBKSZ EQU (CKPBITS-CKPBLOK) /8 Header size in doublewords (X«02') 






CKPSIZE 


DS 


1H 


2 


CKPBMAX 


DS 


1H 


4 


CKPRSV1 


DS 


IF 


8 


CKPNAME 


DS 


CL8 


A 


CKPBITS 


DS 


OD 
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CONTASK 



CO NT ASK: CONSOLE 1^0 PACKAGE 

CONTASK contains data and control information pertinent to the control and communication 
between virtual and real terminal console tasks and command streams. 




8 
10 
18 
20 
28 
30 



CONPNT 



CONRETN 



C*1 I C*2 I CONTSKSZ | 



CONUSER 



C0NCCW1 
C0NCCH2 
C0NCCW3 
C0NCCW4 
CONDATA 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 

Pointer to next CONTASK 
Pointer to savearea for return 
C*1 CONTASK status control flags 



Output CONTASK 

Response expected from this CONTASK 

CONTASK is active on real device 

This is a control CONTASK only 

CONTASK contains device dependent data 

Retry operation in progress 

Output data being split via RDEVLLEN 

CONTASK for synchronization only 

C*2 DMKQCN parameter flags (see Appendix A) 
CONTASK size in doublewords 
Address of VMBLOK for destination user 
First console I/O CCH 
Second console I/O CCH 
Third console I/O CCW 
Fourth console I/O CCW 
Output data area (variable length) 

CONTSIZE EQO (*-CONTASK) /8 CONTASK size in doublewords 






CONPNT 


DS 


IF 


4 


CONRETN 


DS 


IF 


8 


CONSTAT 


DS 


IF 




Bits def 


Lned 


in CONSTAT 




CONOUTPT 


EQO 


X»80« 




CONRESP 


EQU 


X»40' 




CONACTV 


EQO 


X«20' 




COHCNTL 


EQO 


X'10» 




COHESCP 


EQU 


X«08' 




CONRTRY 


EQU 


X«04' 




CONSPLT 


EQU 


X'02' 




CONSYNC 


EQU 


X'01« 


9 


COHPARM 


DS 


IX 


A 


CONTSKSZ 


DS 


1H 


C 


CONUSER 


DS 


IF 


10 


C0NCCW1 


DS 


ID 


18 


C0HCCW2 


DS 


ID 


20 


C0NCCH3 


DS 


ID 


28 


CCNCCW4 


DS 


ID 


30 


CONDATA 


DS 


OC 







ORG 


C0NCCH1 






10 


CONADDR 


DS 


IF 


CCH data 


address 


14 


CONFLAG 


DS 


IX 


CCH flag 


bits 


15 


C0NRSV3 


DS 


IX 


Reserved 


for IBM use 


16 


CONCNT 


DS 


1H 


CCH byte 


count 
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CONTASK 



Hexadeclfflal Field 
Displacement Name 



10 



ORG CONADDR 
CONCOM»D DS IX 



Field Description, Contents, Meaning 



CCH command code 



Bits redefined in CONCCH |oj 3704^3705 Network Control Program 

Source identifier 
Destination resource ID 
Bequest for this CONTASK 
370U/3705 system response byte 
3701/3705 extended response byte 
BTU command modifier 
BDD function control flags 
BDO data control flags 
Text data length 

Sit§ K^def ined for 3^20 ISSSi© Su££ort 
obg" conccwu" 

IX Return index value 

IX Start text character 

IX Escape character 

IX Command code for remote station 

IX Write control character 

IX Start buffer address 

1H Buffer address 







ORG 


CONCCH3+2 


22 


consrid 


DS 


1H 


24 


CONDEST 


DS 


1H 


26 


CONBTAG 


DS 


1H 


28 


CONSYSR 


DS 


IX 


29 


CGNEXTR 


DS 


IX 


2A 


CONTCMD 


DS 


1H 


2C 


CONFUNC 


DS 


IX 


2D 


CONDFLG 


DS 


IX 


2E 


COHDCNT 


DS 


1H 



28 


CONLABEL 


DS 


29 


CONSTX 


DS 


2A 


CCNESC 


DS 


2B 


CONCMD 


DS 


2C 


COHWCC 


DS 


2D 


CONSBA 


DS 


2£ 




DS 
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CORTABLE 



CORTABLE: STORAGE ALLOCATION TABLE 



CORTABLE maintains the status and ownership of each page frame of real storage for use by 
page management routines. 



I 



I 



8 I 



CONFPNT 
CORSHPNT 



CORBPHT 
CORPGPNT 



Hexadecimal Field 
Displacement Name 



CORFPNT 


DS 


IF 


CORBPNT 


DS 


IF 


CCRSWPNT 


DS 


IF 


CCRPGPHT 


DS 


IF 




ORG 


CORSHPNT 


CORFLAG 


DS 


IX 


Bits def; 


ined 


in CORFLAG 


CORIOLCK 


EQU 


X>80' 


CORCFLCK 


EQU 


X'40' 


CORFLUSH 


EQU 


X'20' 


CORFREE 


EQU 


X'10" 


CORSHARE 


EQU 


X'08' 


CORRSV 


EQU 


X'OU' 


CCRCP 


EQU 


X'02' 


CORDISA 


EQU 


X'OI* 



Field Description, Contents, Meaning 



Pointer to next CORTABLE entry in queue 
Pointer to previous CORTABLE entry in queue 
Pointer to SWPTABLE for page 
Pointer to PAGTABLE for page 



CORTABLE entry status flags 



Page locked for I/O, CORLCNT greater than 

Page locked by console function 

Page is in flush list 

Page is in free list 

Page is shared 

Page is reserved 

Page belongs to CP 

Page disabled, not available 



En±Il Definition if Pa^e Is Locked 



ORG 
CORLCNT DS 



CORBPNT 
IF 



Page lock count for CORIOLCK 
ISiry Definition if Paae Is In Transit 



CORCODE 



ORG 
DS 



CORFLAG 
IX 



C*1 DASD op code for DMKPAGIO 
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CPEXBLOK 



CPEXBLOK: CP EXECUTE BLOCK 

CPEXBLOK maintains register values and a module address to handle a CP function that is 
queued for the dispatcher. 



I — 



10 I 



CPEXFPNT 



I 

I _ 

8 I CPEXMISC 



CPEXBPNT 



CPEXADD 



CPEXREGS 



Hexadecimal Field 
Displacement Name 




4 
8 
C 
10 



CPEXFPNT DS 

CPEXBPNT DS 

CPEXMISC DS 

CPEXADD DS 

CPEXREGS DS 



IF 
IF 
IF 
IF 
16F 



Field Description, Contents, Meaning 

Pointer to next CPEXBLOK 
Pointer to previous CPEXBLOK 
Use varies with stacker 
Return address 
Execute registers 



CPEXSIZE EQU (*-CPEXBL0K)/8 Size in doublewords (X'OA«) 
For CPEXREGS Area 







ORG 


CPEXREGS 


10 


CPEXRO 


DS 


IF 


14 


CPEXR1 


DS 


IF 


18 


CPEXR2 


DS 


IF 


1C 


CPEXR3 


DS 


IF 


20 


CPEXR4 


DS 


IF 


24 


CPEXR5 


DS 


IF 


28 


CPEXR6 


DS 


IF 


2C 


CPEXR7 


DS 


IF 


30 


CPEXR8 


DS 


IF 


34 


CPEXR9 


DS 


IF 


38 


CPEXR10 


DS 


IF 


3C 


CPEXR11 


DS 


IF 


40 


CPEXR12 


DS 


IF 


44 


CPEXR13 


DS 


IF 


48 


CPEXR14 


DS 


IF 


4C 


CPEXR15 


DS 


IF 
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DDRREC 



DDRREC: RECONFIGURATION MACRO 



EDRREC is used in the SVC 76-initiated error recording process for type 60 DASD dump 
restore (DDR) dynamic device reallocation records. The reallocation records contain the 
replacement of the virtual "FROM" and "TO" control unit addresses (CUA) by the real 
addresses of the real DASD devices. 






1 


DDRKEYN 


1 D*1 1 E*2 


1 D*3 1 D*4 1 DDRSPE1 


i 


8 




DDRDTEH 




1 DDRTMEN 




10 


1 — 





DDRCPID 




18 


DDRJOB 




20 


1 — 


DDBV0L1 
DDRV0L2 


(cont.) 


1 DDRV0L2 




28 


|D*5 1 DDRCUA1 




30 


1 


DDRDEV1 


|D*6 1 DDRCUA2 

1 
-J 


. ,. t 


38 


DDRDEV2 







Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 






DDRKEYN DS 


1H 




2 


DDRSWS1 DD 


1C 


D*1 


3 


DDRSHS2 DS 


1C 


D*2 


4 


DDRSHS3 DS 


1C 


D*3 


5 


DDRRECNT DS 


1C 


D*4 


6 


DDRSPE1 DS 


1H 




8 


DDRDTEN DS 


IF 




C 


DDRTMEN DS 


IF 




10 


DDRCPID DS 


2F 






Splice Dependent Data 




18 


DDRJOB DS 


8X 




20 


DDRVCL1 DS 


6X 




26 


DDRV0L2 DS 


6X 




2C 


DDRDEVP1 DS 


IX 


D*5 


2D 


DDRCUA1 DS 


3X 




30 


DDRDEV1 DS 


4X 




34 


DDRDEVP2 DS 


IX 


D*6 


35 


DDRCUA2 DS 


3X 




38 


DDRDEV2 DS 


UX 





Type and operating system 

Switch byte 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Date 

Time 

CPU ID and model 



Job using FROM device 
Volume serial FROM device 
Volume serial TO device 
Device ID of FROM DASD 
Primary CUA of FROM device 
Device type FROM device 
Device ID TO DASD 
Primary CUA of TO device 
Device type of TO device 
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DHPINREC 

DMPIHREC: DO MP FILE INFOMMION RECORD 

DHPINREC retains vital system register and storage location values necessary for the 
CPDUMP file. See also DMPKYREC. 





ao 

80 

AO 
A8 
BO 
B8 
CO 
ICO 





DMPGPRS 




1 

,. „^ 1 




DMPCRS 




• 

• 
1 




DMPFPRS 




• 
• 
• 



DMPTODCK 
DMPCPUTM 



I- 

I 

I — 

|S*1 |S*2 I DMPRSV2 



DMPCKCOM 
I 



DMPSYSRV 



— I 



DMPLCORE 



DMPPGMAP 



Bexadecimal Field 
Displacement Name 






DHPGPRS 


DS 


40 


DMPCRS 


DS 


80 


DMPFPRS 


DS 


AO 


DMPTODCK 


DS 


A8 


DMPCPUTM 


DS 


BO 


DMPCKCOM 


DS 


B8 


DMPFLAG 


DS 



B9 
BA 
BC 
CO 
ICO 



Field Description, Contents, Meaning 

16F 16 general registers 

16F 16 control registers 

4D 4 floating— point registers (if floating— point 

feature is installed.) 

ID Time— of— day clock 

ID CPU timer 

ID Time— of— day clock comparator 

IX S*1 Flag byte 



Bits defined in DMPFLAG 
HALFPAGE EQU X«80' 



Last record in DUMP file is 2K 



DMPRSV1 DS IX S*2 Reserved for IBM use 
DMPRSV2 DS IB Reserved for IBM use 

DMPSYSRV DS IF System generated storage size 

DMPLCORE DS 256X Storage locations 0-256 

DMPPGMAP DS 4096B Bit map indicating which pages appear in the 

DUMP file (each bit represents a 4K block) 
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DHPKYEEC 



DMPKYREC: DUMP FILE KEY STORAGE RECORD 



DMPKYREC contains the storage keys of each 2K block of main storage at the time of SVC 
or a PSH restart condition. DMPKYREC and DMPINREC are used for debugging operations. 



|S*1 I 
I 1 DMPKEYS (4096 bytes) 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



DMPKEYS DS U096X Main storage keys 

ORG DMPKEYS 
DMPKEY DS 1X S* 1 Storage key for each 2K block 
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ECBLOK 

ECBLOK: EXTENSION TO VMBLOK FOR VIRTUAL MACHINE WITH RELOCATE 

ECBLOK provides an extension to the VMBLOK for virtual machine operation in Systeffl/370 
extended control mode. 




8 
10 
18 
20 
28 
30 
38 
40 
48 
50 
58 
60 
68 





EXTCRO 




1 EXTCR1 


— 


EXTCR2 
EXTCR4 


^ 


1 EXTCR3 
1 EXTCR5 




EXTCR6 




1 EXTCR7 


— 


EXTCR8 
EXTCR10 





1 EXTCR9 
1 EXTCR11 




EXTCR12 


1 EXTCR13 




EXTCR14 




1 EXTCR15 




EXTSHCEO 




1 EXTSHCR1 


— 


EXTSHLEN | 
EXTSHSEG 
EXTPERAD 


EXTVSEGS 


1 EXTSTOLD 

1 EXTSEGLN | EXTARCH 






1 EXTPERCD 1 EXTCOPY 



EXTCPTMR 



EXTCPTBQ 



EXTCCTRQ 



Hexadecimal Field 
Displacement Name 






EXTCRO 


DS 


IF 


a 


EXTCR1 


DS 


IF 


8 


EXTCR2 


DS 


IF 


C 


EXTCR3 


DS 


IF 


10 


EXTCR4 


DS 


IF 


14 


EXTCR5 


DS 


IF 


18 


EXTCR6 


DS 


IF 


1C 


EXTCR7 


DS 


IF 


20 


EXTCR8 


DS 


IF 


24 


EXTCR9 


DS 


IF 


28 


EXTCR10 


DS 


IF 


2C 


EXTCR11 


DS 


IF 


30 


EXTCR12 


DS 


IF 


34 


EXTCR13 


DS 


IF 


38 


EXTCR14 


DS 


IF 


3C 


EXTCR15 


DS 


IF 



Field Description, Contents, Meaning 

Virtual control register 0; architecture 

controls 
Virtual control register 1; segment table 

pointer 
Virtual control registers 2 through 15 
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ECBLOK 



Hexadecimal Field 
Displacement Name 



HO 


EXTSHCRO 


DS 


HH 


EXTSHCR1 


DS 


48 


EXTSHLEN 


DS 


Hk 


EXTVSEGS 


DS 


i4C 


EXTSTOLD 


DS 


50 


EXTSHSEG 


DS 


54 


EXTSEGLH 


DS 


56 


EXTARCH 


DS 


58 


EXTPERAD 


DS 


5C 


EXTPERCD 


DS 


5E 


EXTCOPY 


DS 


60 


EXTCPTMR 


DS 


68 


EXTCPTRQ 


DS 


6C 


EXTCCTRQ 


DS 



IF 
IF 
1H 
1H 
IF 

IF 
1H 
1H 
IF 
1H 
1H 
ID 
IF 
IF 



Field Description, Contents, Meaning 

Shadow control register 

Shadow control register 1 

Length of shadow SEGTABLE in bytes 

Length of virtual SEGTABLE in bytes 

Control register 1 value corresponding to 

tables 
Real address of shadow SEGTABLE 
Length of shadow SEGTABLE in doublewords 
Architecture control index 
PER interrupt address 
PER interrupt code to be reflected 
Length code from active SEGTABLE entry 
Virtual CPU timer 
Address of TRQBLOK for CPU timer 
Address of TRQBLOK for clock comparator 



EXTSIZE EQU (*-ECBLOK) /8 ECBLOK size in doublewords (X'OE") 
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ERRBLOK 

ERRBLOK: ERROR BLOCK USED TO BUILD OBR/MDR 

ERRBLOK contains data describing an error condition such as a channel failure or a device 
failure. 



I 

I 

8 I 



10 

18 

20 
28 



I- 

I 

I- 



I — 



30 I 



EBRKEY 

EBRTIHE 



I A*2 I 



ERRSV1 
ERBDATE 



ERRCCW 
ERRVOLID 

ERRPARH 

ERRIOB 



I A*2 I A*3 I 



— I 
I 



I — 



70 I 



ERRIOR 



Hexadecimal Field 
Displacement Name 






ERRKEY 


DS 


3X 


3 


ERRSV1 


DS 


IX A*1 


4 


ERRSV2 


DS 


IF 


8 


ERRTIME 


DS 


IF 


C 


ERRDATE 


DS 


IF 




ERRHEADR 


EQU 


(♦-ERRBLOK) 


10 


ERRCCW 


DS 


ID 


18 


ERRVOLID 


DS 


6X 


IE 


ERRSDR 


DS 


IX A*2 


IF 


ERRCORR 


DS 


IX A*3 


20 


ERRFARH 


DS 


2D 


30 


ERRIOB 


DS 


(lOBSIZE)D 


70 


EBRIOER 


DS 


(lOERSIZE)D 




ERRSIZE 


EQU 


(♦-ERRSIZE) /8 






ORG 


ERRCCW 


10 


ERRHIOB 


DS 


(lOBSIZE)D 


18 


ERRHIOER 


DS 


(lOBRSIZE)D 






ORG 


ERRCCW 


10 


ERRCCNT 


DS 


2X 


10 


ERRCONT 


DS 


oc 



Field Description, Contents, Meaning 

Key used to determine OBR/MDR processing 

Reserved for IBM use 

Reserved for IBM use 

Time record was built 

Date record was built 

Size of header in bytes 

Failing CCW 

Volid of failing device 

SDRFLAGS from SDRBLOK 

Correlation count for MDR record 

Device dependent parameter string 

Copied lOBLOK 

Copied lOERBLOK 

Size of ERRBLOK in doublewords 

Copied lOBLOK 
Copied lOERBLOK 

Size of CONTASK data buffer 

CONTASK data buffer (variable length) 
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lOBLOK 



lOBLOK: I/O CONTROL BLOCK 



lOBLOK contains information required to perform I/O operations. The I/O request 
initiator for the I/O operation is either a CP-initiated or virtual machine-initiated 
event. 




8 
10 
18 
20 
28 
30 
38 



lOBRADD |I*1 |I*2 I 
lOBFPHT I 



lOBCYL IIOBVADD 



lOBUSEB 

lOBCAW I 

lOBCSH 
lOBIOEB I 

1*3 \I*H I I0BRSV2 I 



lOBLINK 

lOBBPNT 

lOBMISC 

lOBIRA 

lOBRCaW 

I0BMISC2 
I0BRSV3 



Hexadecimal Field 
Eisplacement Name 






lOBRADD DS 


1H 


2 


lOBFLAG DS 


IX 




Bits defined 


in lOBFLAG 




lOBCP EQO 


X'80» 




lOBRSTRT EQU 


X»40» 




lOBSPLT EQU 


X'20' 




ICBPAG EQU 


XMO' 




lOBRELCU EQU 


X»08' 




lOBERP EQU 


X»Ot»' 




lOBRES EQU 


X'02» 




lOBHVC EQU 


X»01« 



lOBSTAT DS 



IX 



Bits defined in lOBSTAT 



lOBFATAL 


EQU 


X«80"^ 


lOBUC 


EQU 


X'UO' 


lOBSHSIO 


EQU 


X»20' 


lOBREQUE 


EQU 


XMO" 


lOBHRAP 


EQU 


X»08« 


lOBCCO 


EQU 


X'OO' 


IGBCC1 


EQU 


X'OT 


I0BCC2 


EQU 


X»02' 


I0BCC3 


EQU 


X«03' 



Field Description, Contents, Meaning 

Real device address for SIO 
1*1 lOBLOK flags 



CP generated I/O operation 

Restarted operation - lOBRCAN 

DASD — CP split seek operation 

lOBLOK created for paging I/O 

Control unit released at initiation 

I/O task is under control of ERP 

I/O task has been reset 

I/O initiated via DIAGNOSE instruction 

1*2 lOBLOK status 



Uncorrectable error in this I/O operation 

Unit check status 

Sense operation (lOBSNSE) 

Restarted operation (lOBCAW) 

I/O task for autopoll wrap list 

Processing I/O interrupt 

Processing CC 1 , CSH stored 

Processing CC 2, channel busy 

Processing CC 3, not available 
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lOBLOK 



Hexadecimal Field 
Displacement Name 



10 
12 
14 
18 
1C 
20 
24 
28 
30 
34 
38 



39 
3A 
3C 



lOBLINK DS 
lOBFPNT DS 
lOBBPNT DS 



IF 
IF 

IF 



Field Description, Contents, Meaning 

Reserved for IBM use 

Pointer to next lOBLOK in queue 

Pointer to previous lOBLOK in queue 



lOBMSIZE EQO (*-I0BL0K)/8 Multiple path lOBLOK size in doublewords (X»02') 

DASD - seek cylinder for this lOBLOK 

Virtual device address 

Use varies according to caller 

Pointer to VMBLOK of user 

lOBLOK interrupt return address 

Pointer to CCW chain 

Pointer to restart CCH chain 

Real CSW for I/O operation 

Pointer to lOERBLOK 

Use varies according to caller 

lOBLOK special requests 



lOBCYL 


DS 


1H 


lOBVADD 


DS 


1H 


lOBMISC 


DS 


IF 


lOBUSER 


DS 


IF 


lOBIRA 


DS 


IF 


lOBCAW 


DS 


IF 


lOBHCAH 


DS 


IF 


lOBCSW 


DS 


ID 


ICBIOER 


DS 


IF 


I0BMISC2 


DS 


IF 


lOBSPEC 


DS 


IX 


Bits def 


ined 


in lOBSPEC 


lOBTIO 


~EQU 


X'80» 


lOBHIO 


EQU 


X'40' 


lOBSIOF 


EQU 


X'20' 


lOBUHSL 


EQU 


X'08' 


lOBCOPY 


EQU 


X'04' 


I0BRSV1 


DS 


IX 


I0BRSV2 


DS 


1H 


I0BRSV3 


DS 


IF 



1*3 



1*4 



lOBLOK request for a TIO 

lOBLOK request for a HIO 

Virtual SIO fast release 

lOBLOK resulting from unsolicited interrupt 

I/O block associated with a COPY request 

Reserved for IBM use 
Reserved for IBM use 
Reserved for IBM use 



lOBSIZE 



EQU 



(*-I0BL0K)/8 lOBLOK size in doublewords (X'08') 



12 



Fo£ CP IQBLOKs 

ORG lOBVAED 
lOBRCNT DS 1H 



Retry count 
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IOBR3211 



IOBR3211: EXTENDED OUTBOARD BECOEDING BLOCK 



IOBR3211 is appended to the lOERBLOK to contain sense data and other data associated with 
I/O errors and error recovery for devices that generate more than 24 bytes of sense 
information. 



48 I 



328 






50 I 



X0BRCCH1 
X0BRCCW2 



I — 



58 I 



X0BRCCH3 



I- 



60 I 



X0BRCCH4 



I- 



68 I X*1| X*2| X0BRMIS1 | 
I 

70 I XOBR512 

I — 



270 . 



I — 



XOBR180 



XOBR010 



X0BRMIS2 



X0BRVS1 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



48 
50 
58 
60 



X0BRCCW1 DS 
XQBRCCW2 DS 
X0BRCCH3 DS 
X0BRCCH4 DS 



ID 
ID 
ID 
ID 



CCW used to read OBR information 
CCW used to read OBR information 
CCH used to read OBR information 
CCW used to read OBR information 



68 



XOBRFLAG DS 



IX 



X*1 



XOBRFLAG field 



Bits defined in XOBRFLAG 
X0BRT1 EQD X«80» 
X0BRT2 EQU X«40« 
X0BRT3 EQD X»20« 



T1 Buffer type information present 
T2 Buffer type information present 
T3 Buffer type information present 



69 



XOBBSTAT DS 



IX 



X*2 XOBRSTAT field 



Bits def 
X0BRRT1 


ined 
~EQO 


in XOBRSTAT 
X«80» 


Perform 


routine 


1 


in 


error 


module 


X0BRRT2 


EQU 


X»40» 


Perform 


routine 


2 


m 


error 


module 


X0BRRT3 


EQD 


X»20» 


Perform 


routine 


3 


xn 


error 


module 


X06RBT4 


EQU 


XMO" 


Perform 


routine 


4 


xn 


error 


module 


X0BRRT5 


EQU 


X»08« 


Perform 


routine 


5 


in 


error 


module 


X0BRRT6 


EQU 


X«04» 


Perform 


routine 


6 


xn 


error 


module 


X0BRRT7 


EQU 


X«02» 


Perform 


routine 


7 


xn 


error 


module 


X0BRRT8 


EQU 


X«01« 


Perform 


routine 


8 


xn 


error 


module 
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IOBR3211 



Bexadecimal Field 
Displacement Name 



6A 

6C 

70 

270 

328 

332 



270 



X0BBKIS1 


DS 


IB 


X0BRHIS2 


DS 


IF 


X0BB512 


DS 


CL512 


XOBR180 


DS 


CL184 


XOBR010 


DS 


CLIO 


X0BRSV1 


DS 


CL6 




ORG 


XOBR180 


XOBR150 


DS 
ORG 


CL150 



Field Description, Contents, Meaning 

Used ty the error routine 

Used by the error routine 

Space for DSCB data 

Space for FCB data 

Space for first ten error characters 

Beserved for IBM use 



Space for PLB check data 



XOBRSIZE EQU 
XOBBEXT EQU 



(*-I0ERBL0K)/8 Size of lOEB and XOBB in doublewords (X'67») 
(*-X0ERCCWl)/8 Size of XOBR3211 in doublewords (X'5E») 
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lOERBLOK 

lOERBLOK: 1^0 ERROR IMFORMATION BLOCK 

lOERBLOK contains information related to I/O and channel errors. This entails error 
retry, operator message information, and SDR (Statistical Data Recording) lOERBLOK 
related to I/O equipment. 



I lOERPNT I 

8 I lOERDW I 
I 

10 I 

I- 
18 I 

I — 

20 I lOERCCH 

28 I lOEREXT | lOERCCH 1 1*4 | 

I 

30 I lOERDATA 



lOERMSG 

lOERADR 
lOERCSW 



lOERLOC 
I 1*1 I 1*2 I 1*3 



I0ERSV1 



48 



I-- 

I Additional sense data area for devices that return 
I more than 24 sense bytes. See "IOBR3211: Extended 
I Outboard Recording Block." 



Hexadecimal Field 
Displacement Name 



lOERPNT DS 

lOERLOC DS 

lOERDH DS 

lOERMSG DS 



IF 
IF 
1H 

XL3 



Field Description, Contents, Meaning 

Pointer to next lOERBLOK 

Address of CCHs used in recovery 

Size (in doublewords) of storage needed to 

construct CCWs 
Communications with ERP and message writer 





ORG 


lOERHSG 


lOERNUH 


DS 


IX 


I0ERIND3 


DS 


IX 


Bits defined 


in I0ERIND3 


lOERIGN 


EQU 


X'80' 


lOEHETRY 


EQU 


X'40' 


lOERCAH 


EQU 


X'20' 


lOEREC 


EQU 


X'10» 


lOERDASD 


EQU 


X«08' 


lOERDEC 


EQU 


X»04« 


lOERIMFO 


EQU 


X'02' 


lOERACT 


EQU 


X'01' 



Message number for message writer 
Indicators for message writer 



Allow IGNORE response 

Allow RETRY response 

Allow CANCEL response 

Error occurred during recovery action 

Home address is present 

Operator decision is necessary 

Informational message 

Operator action is required 
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lOERBLOK 



Hexadecimal 
Displacement 



Field 
Name 

I0EHIHD4 DS 



IX 



Bits defined 
lOEHIGNR EQU 


in I0ERIND4 
X»80» 


lOERSTRT 


EQU 


X»UO' 


lOERCNCL 


EQU 


X«20» 


I0ERFLG1 


DS 


IX 1*1 


Bits defined 


in I0ERFLG1 


lOERPEND 


EQU 


X'80» 


lOERCLN 


EQU 


X'40» 


lOERERP 


EQU 


X'UO' 


lOERFSR 


EQU 


X»20' 


lOERDEPD 


EQU 


X»20' 


lOERBSR 


EQU 


X'10* 


lOERDERD 


EQU 


XMO* 


ICEBERG 


EQU 


X'08' 


lOERXERP 


EQU 


X'08' 


lOERORA 


EQU 


X'OU« 


lOERSUPP 


EQU 


X»02' 


lOERVLD 


EQU 


X'01' 



I0ERFLG2 DS 



IX 



1*2 



Field Description, Contents, Meaning 
Indicators for message writer 



Operator responded IGNORE 
Operator responded RETRY 
Operator responded CANCEL 
I0ERFLG1 field 



Pending device end interrupt from interrupt 

request 
Tape cleaning in progress 
Spooling - error routine in control 
Forward space record being executed 
Spooling - waiting for device end 
Backspace record being executed 
Spooling - device end received 
Erase gap command in progress 
Spooling - error routine getting OBR data 
Opposite recovery action in progress 
CCH has suppress data transfer bit on 
Read opposite recovery successful 

I0ERFLG2 field 



F 
10 
18 
20 



Bits defined 


in I0ERFLG2 


lOERSTAT 


EQU 


X'80' 


lOERHA 


EQU 


X'40» 


lOERCAL 


EQU 


X»20' 


lOERECF 


EQU 


XMO' 


lOERRBK 


EQU 


X'lO* 


lOERREH 


EQU 


X"08' 


lOERCYLR 


EQU 


X«04' 


lOERMSW 


EQU 


X'04' 


lOERCEHD 


EQU 


X'02' 


I0ERV0L1 


EQU 


X'01' 



ICERWRK DS IX 

lOERADR DS ID 

IGERCSH DS ID 

lOERCCW DS ID 



1*3 



Statistical data being unloaded 

DASD home address being read 

Standalone recalibrate being executed 

Error correction function 

Read backward command 

Tape rewind being executed 

Cylinder (in sense byte) has been relocated 

Message written is active 

Intensive recording mode 

DASD volid being read 

Miscellaneous work area 

Home address for DASD devices 

CSW associated with error 

Sense CCW used to sense the real device 



20 
26 
28 
2A 
2C 



2D 
30 



ORG lOERCCW 

lOERVSER DS CL6 

ICERLEH DS 1H 

lOEREXT DS 1H 

lOERCCH DS 1H 



I0ERFLG3 DS 



IX 



liis defined in I0JRFLG3 
lOERread EQU X'80' 
I0ERSV1 DS 3X 
lOERDATA DS 3D 



Volume serial number for statistical data 

Number of sense bytes present 

Size of extended sense area in doublewords 

Size of I/O extended logout 

Flag field 



SDR READ operation flag 

Reserved for IBM use 

Sense bytes associated with error 



lOERSIZE EQU (*-IOERBLOK) /8 lOERBLOK size in doublewords (X'09') 

Breakdown for channel check handler 
ECSW information from channel logout 
Channel type flag 

Note: Additional sense bytes may be appended to ERRBLOK; their format 
is described in "I0BR3211: Extended Outboard Recording Block" 
in this section. 





ORG 


lOERDATA 


30 


lOERECSH DS 


IF 


34 


ICERCHAN DS 


IX 
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IRMBLOK 



IRMBLOK: INTENSIVE ERROR RECORDING MODE BLOCK 



IRHBLOK provides the information necessary for the implementation of intensive recording 
mode via CP SET RECORD command. Intensive recording mode allows the recording of unit 
check errors from a specified device whose SENSE data matches the values selected. 



I IRMFWPTR I IRMRLADD | 

I- 



8 I 1*1 I 1*2 I 1*3 I 1*4 I IRMLMTCT | 




Hexadecimal 


Field 








Displacement 


Name 











IRMFWPTR 


DS 


IF 




4 


IRMRLADD 


DS 


1H 




6 


IRMLMT 


DS 


1H 




8 


IRMBYT1 


DS 


IX 


1*1 


9 


IRMBIT1 


DS 


IX 


1*2 


A 


IRMBYT2 


DS 


IX 


1*3 


B 


IRMBIT2 


DS 


IX 


1*4 


C 


IRMLMTCT 


DS 


1H 




E 


IRMMAXCT 


DS 


IX 


1*5 


F 


IRMFLG 


DS 


IX 


1*6 




Bits def_ 


Lned 


is ISMFM 





Field Description, Contents, Meaning 



Reserved for IBM use 

Device address 

Limit count — every 'nth' record is requested. 

First SENSE byte specified 

SENSE bit within first sense byte 

Second SENSE byte specified 

SENSE bit within second sense byte 

Temporary summary count for limit detection 

Count of recordings made for this request 

Flag byte 



IRMAND EQU X«80' AND condition specified 

IRMOR EQU X«40« OR condition specified 

IRMSIZE EQD (*-IRHBLOK) /8 IRMBLOK size in doublewords (X»02«) 
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LOCKBLOK 

LOCKBLOK: USER ID LOCK CONTROL BLOCK 

LOCKBLOK is used to synchronize execution for sections of nonreenterable code. Locked 
users are returned to the CPEXBLOK queue when the function being executed completes or no 
longer requires nonreenterable resources. 



I LOCKNEXT 
I — 



8 I 



LOCKQOE 



LOCKNAME 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



LOCKMEXT DS 
LOCKQUE DS 
LOCKNAME DS 



1F 
IF 
ID 



Pointer to the next lock control block 
Pointer to CPEXBLOK queue 
The name being locked 



LOCKSIZE EQU (*-LOCKBLOK) /8 LOCKBLOK size in doublewords (X«02«) 
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HCHAREA 



MCHAREA: MACHINE CHECK SAVE AREA 



MCHAREA provides CP with statistical data that relates to malfunctions of the real CPU, 
to its buffers, to processor storage for damage assessment, and to the recovery of 
VM/370. 





8 

10 

38 
40 
48 
50 
58 
60 
68 
70 
78 
80 
88 
90 



MCDAMLEN | MCHRESEV 

M*1 I M*2 I M*3 I M*4 | M+5 | M*6 | M*7 

MCHLSUM 



M*8 



N*1 I N*2 I N*3 
MCHFSAR 



L*l 



HCHFSEAV 
L*2 I L*3 



N*4 I N*5 I N*6 I N*7 | N*8 
I BCHFSAV 

I MCHPDARI 

I L*4 I CPULIHIT I MCHRES1 



BUFDIASS 
BUFENA55 



ECCDIS55 
ECCENA55 
BUFDIA65 
BUFENA65 



ECCDIS65 



I — 



ECCENA65 



Hexadecimal Field 
Displacement Same 



BCDAMASS DS 

MCDAMLEN DS 

MCHRESEV DS 

MCHDAMFL DS 

MCHFLAGO DS 



Field Description, Contents, Meaning 



OD Damage assessment 

1H Length of the damage assessment field 

XL6 Reserved for IBM use 

0BL8 Damage assessment data 

IX M* 1 System status 



Bits defined in MCHFLAGO 
MCHOHDHR EQO X'80« 
MCHOSFTR EQU X«40' 
MCHODSAD EQU X'20' 
MCHOTERM EQU X'08' 
MCHOQUIT EQU X'04' 



Hardware recovery 

Software recovery 

User aborted 

Operating system termination 

Quiet mode in effect 
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MCHAREA 



Hexadecimal Field 
Displacement Name 



HCHFLAG1 DS 



1X 



M*2 



Bits defined in MCHFLAGl 



MCH1MAIN 


EQO 


X»80' 


HCH1BUFF 


EQU 


X'40' 


MCH1C0ST 


EQU 


X'20' 


MCH1PR0C 


EQU 


X'08» 


MCHITODC 


EQU 


X'02" 


MCHISYSD 


EQU 


X'01' 


HCHFLAG2 


DS 


IX M*3 


MCHFL&G3 


DS 


IX M*4 


Bits defined 


in HCHFLAG3 


HCH3INTE 


EQU 


X'BO' 


MCH3S0LD 


EQU 


X'40' 


MCH3DATA 


EQU 


X'20' 


MCH3PR0T 


EQU 


X'10' 



Field Description, Contents, Meaning 



Damage area 



Main storage 

Buffer 

Control storage 

Processor 

Time-of-day clock 

System damage 

Damage area (continued) 
Error type 



Intermittent error 
Solid error 
Data error 
Protect error 



MCHFLAG4 DS 



IX 



M*5 



RMS Action data 



Bits defined 


in MCHFLAgU 


MCH4T0L0 


EQU 


X'BO' 


HCH4REPA 


EQU 


X'40« 


MCH4STRE 


EQU 


X'20' 


MCH4BURE 


EQU 


X' 10' 



MCHFLAG5 DS 



1X 



M*6 



Time— out loop 

Repair 

Storage reconfiguration 

Buffer reconfiguration 

RMS information status 



10 
38 
38 
39 



Bits defined 


in MCHFLAG5 


MCH5INLG EQU 


X'80' 


MCH5INMC EQU 


X'40' 


MCH5IFSA EQU 


X'20' 


MCHFLAG6 DS 


IX M*7 


MCHFLAG7 DS 


IX M*8 


Bits defined 


in MCHFLAG7 



MCH7SMCR EQU X"80' 

MCH7VRTM EQU X'40' 

MCH70PSH EQU X'10' 

MCH7VEQH EQU X'08' 



Invalid logout 

Invalid machine check interrupt code 

Invalid failing storage address 

RMS wait state suffix 
Reserved for IBM use 



Second machine check recursion 
Terminate the virtual user 
Machine check old PSH in problem state 
Terminate the virtual=real user 



MCHLSUM DS IX Summary 
MCHPDAR DS 0BL8 

MCHPDARO DS IX N*1 Action taken 

MCHPDAR1 DS IX N 2 Failure type 

Machine check communication area must 
^§ cl§§;£®^ §bove this line 

Bits defined in MCHPDARJ 

MCHP1SDE EQU X'80' " Solid storage data error 

MCHP1IDE EQU X'40' Intermittent storage data error 

MCHP1SKE EQU X'20' Solid SPF key error 

MCHP1IKE EQU X'10' Intermittent SPF key error 
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HCHABEA 



Hexadecimal Field 
Displacement Name 



3A 


MCHPDAR2 DS 


IX N*3 


3B 


BCHPDAH3 DS 


IX N*U 


3C 


MCHPDAR4 DS 


IX N*5 


3D 


MCHPDAB5 DS 


IX N*6 


3E 


HCHPDAR6 DS 


IX N*7 




Bits defined 


in MCHPDAR6 



3F 



50 



51 



52 



53 



MCHPDAR7 DS 



IX 



N*8 



Bits defined 


in HCHPEAR7 


BCH7STCK EQU 


X'80» 


MCH7GSTR EQU 


X«40' 


BCH7PURG EQU 


X'20' 


MCH7L0G0 EQU 


XMO' 


HCH7EXIT EQU 


X«08" 


MCH7RSRE EQU 


X'04' 



MCH7I0EM EQU X • 02 • 



40 


MCHFSAR 


DS 


IF 


44 


MCHFSAV 


DS 


IF 


48 


MCHFSEAV 


DS 


IF 


4C 


MCHPDARI 


DS 


IF 




MCHLEH1 


EQU 


♦-MCDAMASS 




MCHLEN 


EQU 


♦-MCHRESEV 



MCHMODEL DS 



IX 



L*1 



Bits defined in MCHMODEL 

NOMODEL EQU X'OO' 

M0DEL135 EQU X'04« 

MODEL145 EQU X'08» 

MCDEL155 EQU X'OC 

MODEL158 EQU X»OC» 

M0DEL165 EQU XMO" 

MODEL168 EQU XMO« 



Field Description, Contents, Meaning 

Operating system status 
Location of failure 
Location of failure 
Requested operator awareness 
flag byte 



Change tit active 
flag byte 



Interfaces for DMSSTIKCP 
Interfaces for DMKFRE 
Interfaces for DMKPTRFT 
Reserved for IBM 
Interfaces for exit to CP 
Interfaces for DMKCFMBK eind for 
DMKCFPRR and DMKPGSPO 
Interfaces for the recorder 

Failing location real address 

Instruction address at failure 

End of the failing location 

End of failing virtual storage address 

Length of damage assessment area 
Length of area to be cleared 

The model number for the machine 



Ho support for machine 

ID number for the Model 135 

ID number for the Model 145 

ID number for the Model 155 

ID number for the Model 158 

ID number for the Model 165 

ID number for the Model 168 



SWITCH DS IX L*2 Main storage exercise switch 
Mode Command Communication Area 



MODEFLAG DS IX L*3 

Bits defined in MODEFLAG 
MODEQUIT EQU X'80« 

M0DFLAG1 DS IX L*4 



Bits defined in MODFLAGl 
M0D1RETY EQU ~X«80~ 
M0D1QUIT EQU X»40» 



Flag field for MODE command 



ECC is in quiet mode 

Flag field for message indicator in 
NODE command 



Message indicator for retry message 
Message indicator for quiet message 
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HCHABEA 



Hexadecifflal Field 
Displacement Name 



54 
56 



158 
158 
160 
160 
168 
168 
170 
170 
178 
178 
180 
188 
190 

1 
1 
1 



CPULIMIT 
MCHBES1 



DS 
DS 



1H 

1H 



Field Description, Contents, Meaning 

The count field for soft error 
Reserved for IBM use 



SI4GN0SE Support for all Mschine Models 



BUFDIA55 

BUFEHA55 

ECCDIS55 

ECCBIIA55 

BUFDIA65 
BUFENA65 
ECCDIS65 
ECCENA65 

MCHFIX 

HCHLEM2 



Disable buffer for Model 155 
Enable buffer for Model 155 
Disable ECC for Model 155 
Enable ECC for Model 155 



DS OD 

DC X'OIOODIOO' 

DS OD 

DC X«0200D100» 

DS OD 

DC X«0300D100« 

DS OD 

DC X'0400D100' 

DS OD 

DC X»0300000000000000' Disable buffer for Model 165 

DC X« 0300002000000000' Enable buffer for Model 165 

DC X«0200000003000000' Disable ECC for Model 165 

DC X« 0200000000000000* Enable ECC for Model 165 

EQU 280+48 Length of the fixed logout and header 

record for machine check handler 

EQU *-MCDAMASS Communication area length 
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MCRECORD 



aCRECORD: MACHINE CHECK HANDLER RECORD 



21CREC0RD provides the necessary extended logout information for error recording of CPU 
and main storage. 




8 
10 
18 
20 
28 
30 

148 



M*1 I H*2 I 






M*3 I M*4 I MCSHITCH 
MCDATE 
MCCPOID 
MCPROGID 
MCJOBID 
MCOLDPH 

MCFXDLOG 



MCEXTLOG 
(variable length) 



I M*5 I M*6 \ 



-I 



— I 
I 



-I 






aCHDAMAG 






Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 






MCREC 


DS 


OD 







MCRECTYP 


DS 


IX 


M*1 


1 


MCOPSYS 


DS 


IX 


M*2 


2 


MCSWONE 


DS 


IX 


M*3 


3 


MCSHTWO 


DS 


IX 


M*a 


IJ 


MCSWITCH 


DS 


2X 




6 


HCRECCNT 


DS 


IX 


M*5 


7 


MCRECCC 


DS 


IX 


M*6 


8 


MCDATE 


DS 


XL8 




10 


MCCPUID 


DS 


XL 8 




18 


MCPROGID 


DS 


XLS 




20 


MCJOBID 


DS 


XL8 




28 


MCOLDPH 


DS 


XLS 




30 


MCFXDLOG 


DS 


35D 






FXDLGLH 


EQU 


(*-Mcrx 


DLOG) 


48 


MCEXTLOG 


EQU 


* 





MCHDAHAG EQU 



Machine check record type 

Operating system 

Record independent switch 

Record dependent switch 

Unused switches 

Record count 

Reserved for IBM use 

Date and time 

CPU ID 

Program identity 

Job identity (unused) 

Machine check old PSH 

Machine check fixed logout 



Machine check extended logout (the extended 
logout length is variable length and 
machine dependent) 

The damage assessment area (80 bytes) 
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MDRREC 



HDRREC: MISCELLANEOUS DATA RECORDING RECORD 



MDRREC retains information for the VM/370 error recording cylinders 





8 

10 

18 

20 



MDRKEYN | M*1 | M*2 | M*3 | M*4 | MDRSPE1 
MDRDTEN | MDRTMEN 

MDRCPID 
MDRCUA1 I MDRVOL 

MDRSENS 



38 . 



Hexadecimal Field 
Displacement Name 



6 

8 

C 

10 



18 
1A 

20 



18 
1A 
IB 
1C 

IE 
20 



2j|-B^te Header 



MDRKEYN 


DS 


MDRSWS1 


DD 


MDRSWS2 


DS 


MDRSWS3 


DS 



MDRRECNT DS 



MDRSPE1 DS 

MDRDTEN DS 

MDRTMEN DS 

MDRCPID DS 



1H 
1C 
1C 
1C 
1C 



1H 
IF 
IF 
2F 



5§Y.ice De£endent Data 



MDRCUA1 DS 
MDRVOL DS 
MDRSENS DS 



2X 

6X 

24X 



I°E 3270 Remote Su££ort 



DS 
DS 
DS 
DS 
DS 
DS 



2X 
IX 
IX 
2X 
2X 
2X 



Field Description, Contents, Meaning 



Type and operating system 
M*1 Switch byte 
M*2 Reserved for IBM use 
M*3 Reserved for IBM use 
M*4 Bits through 3 indicate the seguence 

number; bits H through 7 indicate the 

record total 

Date 
Time 
CPU ID and model 



Primary CUA of device 
Volume serial of device 
Sense byte data 



Line address 

Control unit address 

Device address 

Sense and status information 

Resource identification 

Reserved for IBM use 
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MICBLOK 

MICBLOK: VIRTU A I MACHINE POINTER LIST FOR VIRTUAL MACHINE ASSIST FEAjCURE 

MICBLOK contains pointers to control registers, the segment table, and other values 
required by the virtual machine assist feature. This information is needed for the 
handling of certain instructions and privileged operations requested by the virtual 
machine. 



I MICRSEG 

I — 
8 I MICVPSW 



I MICCREG 
I MICWORK 



Hexadecimal Field 
Displacement Name 






MICRSEG 


DS 


IF 


4 


MICCREG 


DS 


IF 


8 


MICVPSW 


DS 


IF 


C 


MICWORK 


DS 


IF 




MICSIZE 


EQU 


(*-MICB 






ORG 


MICVPSW 


8 


MICVIP 


DS 


IX 




MICPEND 


EQU 


X'80' 



DS 



3X 



Field Description, Contents, Meaning 

Real segment table pointer 
Virtual control register pointer 
Virtual PSW pointer 
Workspace pointer 

Size of DSECT in doublewords (X'02') 



Virtual interrupt pending bit 

Virtual interrupt is pending; therefore, the 
virtual machine assist feature is not to 
handle change of PSW channel masks or 
external mask from disabled to enabled. 
All other bits in this byte must be 0. 

Address of virtual PSW 
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MIHBEC 

HIHREC: MISSING INTMSRSET HANDLEB ERROR RECORD 

HIHREC block is used in the SVC 76-initiated error recording process of type 70 MIH 
(Hissing Interrupt Handler) records. 




8 
10 
18 
20 
28 
30 



MIHKEYM I A*1 | A*2 | A*3 | A*4 | MIHSPE1 
MIHDTEH I MIHTMEN 

MIHCPID 



HIHCUA2 



MIHJOB 
MIHCUA1 



MIHVOL 



MIHVOL (cont.) 



HIHDEVT 



MIHINT 



Hexadecimal Field 
Displacement Name 



2^-Bite Header 






MIHKEYN 


DS 


1H 




2 


MIHSWS1 


DS 


1C 


A*1 


3 


HIHSHS2 


DS 


1C 


k*2 


4 


MIHSWS3 


DS 


1C 


A*3 


5 


MIHRECNT 


DS 


1C 


A*a 


6 


MIHSPE1 


DS 


1H 




8 


HIHDTEN 


DS 


IF 




C 


MIHTMEN 


DS 


IF 




10 


MIHCPID 


DS 


2F 






PeiiSis 5§E§a 


dent 


Data 


18 


MIHJOB 


DS 


8X 




20 


MIHCUA2 


DS 


3X 




23 


MIHCUA1 


DS 


3X 




26 


MIHVOL 


DS 


6X 




2C 


MIHDEVT 


DS 


4X 




30 


MIHINT 


DS 


8X 





Field Description, Contents, Meaning 



Type and operating system 

Switch byte 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Date: 

Time 

CP© ID and model 



Job whose I/O request pending 
CUA used to address the device 
Primary device address 
Volume serial 
Device type 

Time interval used to check pending 
interrupt 
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NNHDB 



MNHDR: VM MONITOR RECORD HEADER 



BMHDR provides header information for following monitor records. 



I MNHRECSZ 

I .. 

8 I 



MNHTOD 



I M*1 I 



MSHCODE 
I 



Hexadecimal Field 
Displacement Name 






HNBHDLEN EQU 


n 





MNHRECSZ DS 


1H 


2 


DS 


1H 


4 


MNHCLASS DS 


IX 


5 


MNHCODE DS 


XL2 


8 


MNHTOD DS 


XLS 




HHHDRLEN EQU 


♦-MNHDR 



Field Description, Contents, Meaning 



Length of the block header (VB format) 
Record size 
Reserved for IBM use 
M*1 Monitor class 
Monitor code 
Current TOD value 
Length of header record 
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MNOOO 



MNOOO: VM MONITOR PEiFQSl? CLASS BECOHD 



MNOOO provides an area for the accumulation 
paging, dispatching, and interrupt activity 



of records dealing with privilege operations. 








MNOOOWID 






8 




MNOOOWPG 


MNOOOCPA 




10 
18 





MNOOOHIO 
MNOOOPRB 





20 


MNOOOPSI 






28 


MNOOONFL 




MNOOOPSN 
MNOOORPC 




30 


MNOOOPBC 
MNOOOSPC 
MNOOOCPT 






38 
40 





MNOOOFLF 

MNOOOSS 

MNOOOPRF 

MNOOONXE 

MNOOOCVI 





U8 


MNOOOPFF 






50 
58 


HNOOOPCS 
HNOOOCPE 
MNOOOCCH 
MNOOOPTI 








60 
68 




MNOOOITI 
MNOOOCKI 





70 


MNOOOCSV 




MNOOOCPG 




78 


MNOOOCIO 




MNOOOCDS 

MNOOOCDB 

MNOOEK 

MNOOOMS 

MNOOODI 




80 
88 


MNOOOCDA 
MNOOOCSC 








90 
98 


MNOOOIK 
MNOOOLP 






1 

A0| 

1 _,.. - ,. 


MNOOOSI 
MNOOOTI 




MNOOOSF 1 


A8| 
1 — 




MNOOOCI 1 


B0| 
1 


MNOOOHI 




MNOOOHD 1 


B8| 


MNOOOTC 




MNOOOMN 1 


C0| 


MNOOOMC 
MNOOOCP 
MNOOOTE 




HNOOOLR 1 


C8| 
1 




MNOOOCH 1 


D0| 
1 




MNOOOCE 1 


D8| 
1 


MNOOOCT 




MNOOOPE 1 


E0| 

1 

E8| 


MNOOOPT 
MNOOOIP 





MNOOOEP 1 
MNOOOPB 1 


F0| 


MNOOORH 




MNOOOTCL 1 


F8| 


MNOOOLCL 




MNOOOCS 1 


1001 


MNOOOCD 
MNOOONDU 




MNOOOHDI 1 


1081 





MNOOONAU 1 


1101 


MNOOOPRD 
MNOOONPP 


MNOOOPWR 1 


1181 




MNOOOSWS 1 


1201 
1 


MN000Q1N 
0Q1E IMNOO 




MN000Q2N 1 


128IMN00 


3Q2E 


MNOOOINT IMNOOOPPAI 


130IMN000PPC 1 







Hexadecimal Field 
Displacement Name 




8 
10 
18 
20 
24 
28 
2C 
30 



MNOOOWID DS 

MNOOOWPG DS 

MNOOOWIO DS 

MNOOOPRB DS 

MNOOOPSI DS 

MNOOOCPA DS 

MNOOONFL DS 

MNOOOPSN DS 

MNOOOPRC DS 



XL 8 

XL8 

XLS 

XL8 

IF 

IF 

IF 

IF 

IF 



Field Description, Contents, Meaning 

Total system idle wait time 

Total system page wait time 

Total system I/O wait time 

Total system problem state time 

No. of paging SIOs 

No. of calls to DMKPAG 

No. of page frames currently on free list 

No. of pages currently being swapped 

No. of pages flushed but reclaimed 
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M.NOOO 



Hexadecimal 


Field 






Displacement 


Name 






3a 


MMOOORPC 


DS 


IF 


38 


MNOOOSPC 


DS 


IF 


3C 


MNOOOFLF 


DS 


IF 


40 


MNOOOCPT 


DS 


IF 


44 


HHOOOSS 


DS 


IF 


48 


MNOOOPFF 


DS 


IF 


4C 


MNOOOPRF 


DS 


IF 


50 


MNOOOPCS 


DS 


IF 


54 


HNOOONXB 


DS 


IF 


58 


MNOOOCPR 


DS 


IF 


5C 


MMOOOCVI 


DS 


IF 


60 


MNOOOCCW 


DS 


IF 


64 


MNOOOITI 


DS 


IF 


68 


MNOOOPTI 


DS 


IF 


6C 


MNOOOCKI 


DS 


IF 


70 


MNOOOCSV 


DS 


IF 


74 


HNOOOCPG 


DS 


IF 


78 


MNOOOCIO 


DS 


IF 


7C 


HNOOOCDS 


DS 


IF 


80 


HNOOOCDA 


DS 


IF 


84 


MMOOOCDB 


DS 


IF 


88 


MNOOOCSC 


DS 


IF 


8C 


MHOOOEK 


DS 


IF 


90 


MNOOOIK 


DS 


IF 


94 


UNO 00 MS 


DS 


IF 


98 


MNOOOLP 


DS 


IF 


9C 


MMOOODI 


DS 


IF 


AO 


HNOOOSI 


DS 


IF 


A4 


MMOOOSF 


DS 


IF 


A8 


MNOOOTI 


DS 


IF 


AC 


MMOOOCI 


DS 


IF 


BO 


MNOOOHI 


DS 


IF 


B4 


MHOOOHD 


DS 


IF 


B8 


MNOOOTC 


DS 


IF 


BC 


NMOOOHM 


DS 


IF 


CO 


HNOOOHO 


DS 


IF 


C4 


MHOOOLR 


DS 


IF 


C8 


MNOOOCP 


DS 


IF 


CC 


MNOOOCH 


DS 


IF 


DO 


MNOOOTE 


DS 


IF 


D4 


MMOOOCE 


DS 


IF 


D8 


MNOOOCT 


DS 


IF 


DC 


MNOOOPE 


DS 


IF 


EO 


MNOOOPT 


DS 


IF 


E4 


HHOOOEP 


DS 


IF 


E8 


MNOOOIP 


DS 


IF 


EC 


NNOOOPB 


DS 


IF 


FO 


MNOOORR 


DS 


IF 


F4 


MMOOOTCL 


DS 


IF 


F8 


MNOOOLCL 


DS 


IF 


FC 


MNOOOCS 


DS 


IF 


100 


MNOOOCD 


DS 


IF 


104 


HMOOOHDI 


DS 


IF 


108 


MNOOONDU 


DS 


IF 


IOC 


HNOOONAU 


DS 


IF 


110 


MNOOOPRD 


DS 


IF 


114 


HNOOOPHR 


DS 


IF 


118 


MNOOONPP 


DS 


IF 



Field Description, Contents, Meaning 

No. of reserved pages 

No. of shared system pages 

No. of times the free list was empty 

No. of calls to DMKPTRFR 

No. of pages stolen from in-gueue users 

No. of pages swapped from the flush list 

No. of pages examined in stealing a page 

No. of full scans done in stealing pages 

No. of real external interruptions 

No. of calls to DMKPRVLG 

No. of calls to DMKVIOEX 

No. of calls to DMKCCW from DMKVIO 

No. of interval timer interruptions reflected 

No. of CPU timer interruptions reflected 

No. of clock comparator interruptions reflected 

No. of SVC interruptions reflected 

No. of program interruption handled 

No. of I/O interruption handled 

No. of calls to DMKDSP (main entry) 

No. of fast reflects in DMSDSP 

No. of dispatches for new PSHs 

No. of calls to DMKSCHDL 



Inst. 


count 


for 


X 


08" SSK 


Inst. 


count 


for 


X 


09' ISK 


Inst. 


count 


for 


X' 


80* SSM 


Inst. 


count 


for 


X 


82' LPSW 


Inst. 


count 


for 


X 


83' DIAG 


Inst. 


count 


for 


X 


'9CX0 


SIO 


Inst. 


count 


for 


X 


9CX1 


SIOF 


Inst. 


count 


for 


X 


9DX0 


TIO 


Inst. 


count 


for 


X 


9DX1" 


CLRIO 


Inst. 


count 


for 


X 


9EX0 


HIO 


Inst. 


count 


for 


X' 


9EX1 


HDV 


Inst. 


count 


for 


X 


9F' TCH 


Inst. 


count 


for 


X 


AC STNSM 


Inst. 


count 


for 


X 


•AD* STOSM 


Inst. 


count 


for 


X 


B1' LRA 


Inst. 


count 


for 


X 


'B202 


STIDP 


Inst. 


count 


for 


X 


B203 


STIDC 


Inst. 


count 


for 


X 


B204 


SCK 


Inst. 


count 


for 


X 


B206< 


SCKC 


Inst. 


count 


for 


X 


•B207 


STCKC 


Inst. 


count 


for 


X 


B208 


SPT 


Inst. 


count 


for 


X 


•B209 


' STPT 


Inst. 


count 


for 


X 


B20A 


SPKA 


Inst. 


count 


for 


X 


'B20B 


' IPK 


Inst. 


count 


for 


X 


B20D 


PTLB 


Inst. 


count 


for 


X 


'B213 


• ERB 


Inst. 


count 


for 


X 


B6' i 


3TCTL 


Inst. 


count 


for 


X 


'B7' 1 


.CTL 


Inst. 


count 


for 


X' 


BA' C 


:s 


Inst. 


count 


for 


X 


BB' ( 


:ds 



Diagnose disk I/O simulation count 

No. of users dialed to a virtual machine 

No. of users logged on 

No. of page reads 

No. of page writes 

No. of system pageable pages 
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HNOOO 



Hexadecimal Field 
Displacement Name 



lie 


MNOOOSHS 


DS 


IF 


120 


HM000Q1N 


DS 


IF 


124 


MN000Q2N 


DS 


IF 


128 


MH000Q1E 


DS 


1H 


12A 


NN000Q2E 


DS 


1H 


12C 


HNOOOINT 


DS 


1H 


12E 


MNOOOPPA DS 


1H 





130 MNOOOPPC DS 



1H 



Field Description, contents. Meaning 

Sum of working sets of in— gueue users 

No. of users in Q1 

No. of users in Q2 

No. of users eligible for Q1 

No. of users eligible for Q2 

MONITOR sampling interval (sees) 

Pseudo-cylinders 1 of allocated temporary 

space 
Pseudo-cylinders of system temporary space 



A pseudo-cylinder comprises 100 available page slots for all system-owned voli2mes. The 
total of available pseudo-cylinders per device is determined by the formula: 

(number of cylinders X number of records per cylinder for a device) 

100 
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MN097,MN098 



MN097 AND MN098: VM MCSITOB TAPE HEADER AND TRAILER RECORDS 



MN097 provides tape header information for data accumulated by VM monitor. 




8 


1 


HN097CPU 
MN097LEV 





10 


1 


MN097DAT 




18 


MN097TIM 




20 


MN097UID 




28 


1 MN097CR8 


1 
_ _ J 





Hexadecimal Field 
Displacement Name 




8 
10 
18 
20 
28 



MN097CPU DS 

MN097LEV DS 

MM097DAT DS 

MN097TIM DS 

MN097UID DS 

HN097CR8 DS 

MN097LEN EQU 



XL8 

CL8 

CL8 

CL8 

CL8 

IF 

♦-MH097 



Field Description, Contents, Meaning 



CPU serial/model number 

Program Level Change 

Current date 

Current time 

Userid of user who invoked MONITOR 

Value of control register 8 

Length of the tape header record 



MN098 contains the userid of the user who has terminated current VM monitor activity., 



I 



MN098UID 



Hexadecimal Field 
Displacement Name 



MN098UID DS 
MN098LEN EQU 



CL8 
*-MH098 



Field Description, Contents, Meaning 

User stopping the VM monitor 
Length of the tape trailer record 
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MN099, MN10X 



BM099: VM MOKITOE SUSPENSION RECORD 



I1N099 contains information recorded when monitor activity is suspended because of a tape 
busy condition. 



MN099TOD 



8 I 



MN099CNT 



Hexadecimal Field 
Displacement Name 



MH099TOD DS XLS 
MN099CNT DS XL4 
MN099LEN EQU *-MN099 



Field Description, Contents, Meaning 



TOD clock value at suspension 

Count of suspensions 

Length of the suspension record 



MNJOX: VM MONITOR RESPONSE CLASS RECORDS 

MN10X contains information on the number of input or output console line transmissions 
for a given userid. 



I MN10XUID 

8 I MN10XADD | M*1 | 



I 

i 



Hexadecimal Field 
Displacement Name 






MN10XUID 


DS 


CL8 




8 


MNIOXADD 


DS 


1H 






HN10XLEN 


EQU 


*-MN10X 




A 


MN10YCNT 


DS 


IX 


M*1 




MM10YLEN 


EQU 


♦-MN10X 




B 


MN10YIO 


EQU 


* 





Field Description, Contents, Meaning 

Userid 

Terminal line address 

Short record length 

Byte count for the following 

Long record, header length 

Input/output line starts here 
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HN20X 



MH20X: VM MONITOR SCHEDULE CLASS RECORDS 



MN20X contains VM monitor data on CP's scheduler activity, dispatch queues, paging, and 
spool activity. 




8 
10 
18 
20 
28 
30 
38 
40 



MN20XUID 
MN20XNPP I HN20XSHS 

MN20XQ1N I HN20XQ2N 

MN20XQ1E I MN20XQ2E J MN20XHSS | M*1 | M*2 

MN20YTTI 



MN20YVTI 

MN202PRI I M202PRG | MN202APR | MN202REF 
MN202RES | M202PST | MN202IOC 

MN202PNC I MN202LIN 



48 I MN202CRD 

I 



Hexadecimal Field 
Displacement Name 






MM20XUID 


DS 


CL8 




8 


MN20XNPP 


DS 


IF 




C 


MN20XSWS 


DS 


IF 




10 


MN20XQ1N 


DS 


IF 




14 


MN20XQ2N 


DS 


IF 




18 


MN20XQ1E 


DS 


1H 




1A 


MN20XQ2E 


DS 


1H 




1C 


MN20XHSS 


DS 


1H 




IE 


HN20XQNH 


DS 


IX 


M*1 


IF 


HN2RSV1 


DS 


IX 


M*2 




MN203LEN 


EQU 


♦-MN20X 




20 


MN20YTTI 


DS 


XL8 




28 


MN20YVTI 


DS 


XL8 




30 


MN204PRI 


DS 


IF 






HN204LEN 


EQU 
ORG 


♦-MN20X 
MN204PRI 




30 


MN202PRI 


DS 


1H 




32 


HM202PGR 


DS 


1H 




34 


MN202APR 


DS 


1H 




36 


MN202REF 


DS 


1H 




38 


MN202RES 


DS 


1H 




3A 


MN202PST 


DS 


1H 




3C 


MN202IOC 


DS 


IF 




40 


MN202PNC 


DS 


IF 




44 


MN202LIN 


DS 


IF 




48 


MN202CRD 


DS 


IF 






HN202LEH 


EQU 


♦-MH20X 





Field Description, Contents, Meaning 

Userid being added/dropped from queue 

No. of system pageable pages 

No. of working sets of in-queue users 

No. of users in Q1 

No. of users in Q2 

No. of users eligible for Q1 

No. of users eligible for Q2 

User's projected working set size 

Queue being added/dropped to/from 

Reserved for IBM use 

Length of class 2 code 3 Record (Add queue) 

Current VMTTIME (CP simulation time) 

Current VMVTIME (user virtual time) 

Eligible list priority 

Length of class 2 code 4 Record (Drop queue) 

Back up to priority field 

Dispatch priority 

Pages read while in queue 

Av. no. of pages resident at each 

paging operation 
No. of pages referenced while in queue 
Current no. of pages resident 
No. of pages stolen while in queue 
Virtual nonspooled SIO count 
Virtual cards punched 
Virtual lines printed 
Virtual cards read 
Length of class 2 code 2 Record (add to the 

eligible list) 
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HN400 



MH400S VM MONITOR USER CLASS RECORD 



I1N400 provides user virtual machine statistics. 






r — 




MN400UID 




8 






MN400TTI 




10 






MN400VTI 




18 






MN400PGR 




1C 






HN400PGH 




20 






MN400IOC 




2U 






MN400PNC 




28 






MN400LIN 




2C 






MN400CRD 




30 




HN400RST 1 


MN400DST 1 MN400OST 


1 M11400QST 1 


34 


MN400PST 1 


HN400EST 1 MN400TST 


1 MN400MLV 1 


38 
3C 


— 


M1J400QLV 1 
HN400UPR 1 


MN400CLV 1 MN400TLV 
MN4HSV1 1 


1 HN400PND 1 
MN400RES 1 


40 




MN400WSS 


1 


MN400PDR 1 


44 




I1N400PDK 


1 


MN400INT 1 



Hexadecimal Field 
Displacement Name 






MN400UID 


DS 


CL8 


8 


MN400TTI 


DS 


XL8 


10 


MN400VTI 


DS 


XLS 


18 


MH400PGR 


DS 


IF 


1C 


NN400PGN 


DS 


IF 


20 


MM400;CGC 


DS 


IF 


24 


MN400PNC 


DS 


IF 


28 


MH400:LIN 


DS 


IF 


2C 


HN400CRD 


DS 


IF 


30 


MH400HST 


DS 


IX 


31 


MN400DST 


DS 


IX 


32 


MN400OST 


DS 


IX 


33 


MN400QST 


DS 


IX 


34 


HN400PST 


DS 


IX 


35 


MN400EST 


DS 


IX 


36 


HN400TST 


DS 


IX 


37 


MN400MLV 


DS 


IX 


38 


MN400QLV 


DS 


IX 



Field Description, Contents, Meaning 

Userid 

Current VMTTIME (in VMBLOK) ; 

CP simulation time 
Current VMVTIME (in VMBLOK) ; 

user simulation time 
Total page reads - this user 
Total page writes - this user 
Virtual nonspooled SIC count 
Virtual cards punched 
Virtual lines printed 
Virtual cards read 
User running status 
User dispatch status 
User operating status 
User gueuing status 
User processing status 
User execution status 
User tracing control status 
User message level 
User gueue level 
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MN400 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



39 


MH400CLV 


DS 


IX 


3A 


MIJ400TLV 


DS 


IX 


3B 


MN400PND 


DS 


IX 


3C 


Ml!i400UPR 


DS 


IX 


3D 


HN4RSV1 


DS 


IX 


3E 


Mli400RES 


DS 


1H 


40 


MN400WSS 


DS 


1H 


42 


HN400PDR 


DS 


1H 


44 


MN400PDK 


DS 


1H 


46 


MM400LEN 


EQU 


*_ 



48 



MN400INT DS 1H 



User command level 
User timer level 
Interrupt pending status 
Directory or SET priority 
Reserved for IBM use 
Number of pages resident 
Estimated working set size 
Drum allocated page frames 
Disk allocated page frames 
Length of CL4 code record 
Monitor sampling interval 
(in seconds) 



54 IBM VM/370: Data Areas and Control Block Logic 



MN500, MM600DEV 



MN500: VM MONITOR IS ST RUCTION SIMULATION CLASS RECORD 



MN500 provides data on instructions simulated by CP. 



I 



I 



8 I 



C 1 



I — 



10 I 



MN500UID 
HN500INS 
MN500VAD 
MN500OVH 



Hexadecimal Field 
Displacement Name 






MS500UID 


DS 


CL8 


8 


MN500INS 


DS 


IF 


C 


MN500VAD 


DS 


IF 


10 


MN5000VH 


DS 


XL8 



MN500LEN EQU *-MN500 



Field Description, Contents, Meaning 

Userid 

Privileged instruction 

virtual storage addr of the instruction 

Current total of CP simulation time 

Length of CL4 code record 



J1N600DEV: VM MONITOR DASTAP CLASS DEVICE PORTION 

MN600DEV provides I/O activity count for DASD and tape devices as invoked by CP monitor 
function. 



I MN600ADD | MN600TY J 

8 I I MN600CNT 




Hexadecimal Field 
Displacement Name 



HH600ADD DS 

MN600TY DS 

MN600SER DS 

MN600CNT DS 

MN600DLN EQU 

MN600MAX EQU 



Field Description, Contents, Meaning 



1H Device address 

1H VM/370 device type/codes 

CL6 Volume serial number 

XL4 Device accumulated I/O count 

*-MN600DEV Length of each data record 
(4 096-MNBHDLEN-MNHDRLEN-MN600HLN)/MN600DLN 
Maximum device count 
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MN600HDR, MN700 



(1N600HDR: VM MOMITOR HEADEE RECORD FOR DEVICE PACKAGES 



HN600HDR provides the number of device data packages. 



1 MN600NUM | 



1 

I 



Hexadecimal Field 
Displacement Name 



NN600NUH DS 



Field Description, Contents, Meaning 
Number of device data packages 



MNVOOi VM MONITOR SEEKS CLASS RECORD 

MN700 provides, via CP MONITOR, the I/O tasks and cylinder seek activity of a specified 
DASD device. 



I MN700UID I 

8 I MH700ADD | MN700CYL | MN700CCY | M*1 | M*2 | 
10 I M*3 I M*4 I 



Hexadecimal Field 
Displacement Name 






MN700UID DS 


CL8 




8 


MN700ADD DS 


1H 




A 


MN700CYL DS 


1H 




C 


MN700CCY DS 


1H 




E 


MN700QDV DS 


IX 


M*1 


F 


MN700QCU DS 


IX 


M*2 


10 


MH700QCH DS 


IX 


M*3 


11 


HM700DIR DS 


IX 


H*4 




MN700LEN EQU 


♦-MN700 





Field Description, Contents, Meaning 

Userid 

Device address 

Cylinder seeking to 

Current cylinder 

I/O tasks queued on the device 

I/O tasks queued on the control unit 

I/O tasks queued on the channel 

Seek direction; O0=lower, 01=higher 

Length of class 7 code record 
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MN802CTR 

MN802CTB: VM MONITOR SYSPROF CLASS RJCORD 

I1N802CTR provides, via CP monitor function, additional system profile data. The monitor 
data includes: the I/O activity for each device, the number of logged on users, number of 
page read/writes, plus total system I/O, page wait, and problem state time. 




8 
10 
18 
20 
28 



nN802NAU 
HN802PGN 



I 

MN802WID 
HN802WPG 



HN802PGR 
MN802NPP 



MN802WIO 
MN802PRB 



Hexadecimal Field 
Eisplacement Name 





4 

8 

C 

10 

18 

20 

28 



Field Description, Contents, Meaning 



HN802NAU 


DS 


IF 


No. of 


HN802PGR 


DS 


IF 


Total s 


MN802PGW 


DS 


IF 


Total s 


MN802NPP 


DS 


IF 


No. of 


MN802MID 


DS 


XL8 


Total s 


HN8021PG 


DS 


XLS 


Total s 


MN802WI0 


DS 


XL8 


Total s 


MN802PRB 


DS 


XL 8 


Total s 


HN802CLN 


EQU 


*-MN802CTR 


Length 



logged on users 
ystem page reads 
ystem page writes 
system pageable pages 
ystem idle wait time 
ystem page wait time 
ystem I/O wait time 
ystem problem time 
of each data entry 
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HONCOM 



MONCOM: VM MONITOR COMMUNICATIONS AREA 



MONCOM provides the control link for CP's monitor activity, the user, and the tape 
drive. 



I MONCPEX 

8 I MONDVLST 

10 I MONAIOB 

18 I 

20 \ 

28 I MONSUSCT 

30 I K0NCTEB1 




MONCLOCK 
ISONSUSCK 



M0NRSVD1 
M0NCTEB2 



HONSAVE 



78 1 



MONUSER 






Hexadecimal Field 
displacement Name 






MONARDB 


DS 


IF 


(!, 


MCNFLAG1 


DS 


IX 




Bits def: 


Lned 


in M0NFLAG1 




TBUSY 


EQU 


X'80' 




SUSPEND 


EQU 


X'UO' 




CFSTOP 


EQU 


X'20' 




TRUN 


EQU 


X« 10' 




ERROR 


EQU 


X'08' 




MOBTIINT 


EQU 


X'04' 


5 


M0NFLAG2 


DS 


IX 


6 


MOBDVNUM 


DS 


1H 


8 


MONDVLST 


DS 


IF 


C 


MCNRSV1 


DS 


IF 


10 


MONAIOB 


DS 


IF 


14 


MCNATRB 


DS 


IF 


18 


MONCLOCK 


DS 


ID 


20 


MONSUSCK 


DS 


ID 


28 


MONSUSCT 


DS 


IF 


2C 


MCNRSVD1 


DS 


IF 


30 


M0NCTEB1 


DS 


IF 


34 


M0NCTEB2 


DS 


IF 


38 


MONSAVE 


DS 


16F 


78 


HCNUSER 


DS 


8C 



Field Description, Contents, Meaning 

Address of monitor tape real device block 
M*1 Monitor flag 



Tape is busy 

Monitoring suspended 

MONITOR STOP command has been issued 

Tape rewind-unload CCH has been scheduled 

Tape error has occurred - stop VM monitor 

Handling timer interruption 

M*2 Work byte 

Number of entries in real device list 

Address of the real device list 

Reserved for IBM use 

Address of monitor tape I/O block 

Address of monitor timer request block 

TOD clock stamp for each record 

TOD clock value at last suspension 

Suspension count 

Reserved for IBM use 

CORTABLE entry for buffer page 1 

CORTABLE entry for buffer page 2 

Monitor internal save area 

User starting/stopping the VM monitor 
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NCPTBL 

NCPTBL: NAMED 3704/3705 CONTROL PROGRAM TABLE 

NCPTBL retains the information requirements for loading the saved image 3704/3705 NCP, 
EP, or PEP program into a 3704 or 3705 communications controller. 



18 



1 — 



10 I 



I — 



NCPPNT 



NCPNAME 



HCPVOL 



NCPSTABT 



NCPSIZE 

i N*1 I N*2 
NCPPAGCT 



Hexadecimal Field 
Displacement Name 






NCPPNT 


DS 


IF 


4 


NCPSIZE 


DS 


IF 


8 


NCPNAME 


DS 


CL8 


10 


NCPVOL 


DS 


CL6 


16 


NCPFLAG 


DS 


IX 




Bits defined 


in NCPFLAG 




NCPTNCP 


EQU 


X'01' 




NCPTCEP 


EQU 


X'02' 




NCPTPEP 


EQU 


X'03' 


17 


NCPRSV1 


DS 


IX 


18 


NCPSTART 


DS 


IF 


1C 


NCPPAGCT 


DS 


IF 



Field Description, Contents, Meaning 

Displacement to next entry 
3704/3705 storage size required for load 
Control program reference name 
Volid of DASD containing saved image 
N*1 CPTYPE flag byte 



Network Control Program 
270X Emulation Control Program 
Partitioned Emulation Program 
N*2 Reserved for IBM use 

CCPD of first page on NCPVOL 
Total number of pages saved 
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NICBLOK 



HICBLOK: NETWORK INTERFACE CONTROL BLOCK 



NICBLOK contains control information related to 370t»/3705 resources, teleprocessing 
lines, and display screen status information. 



I NICNAME 

I 

8 I NICRCNT 

10 I NICUSER 



I NICEPAD I N*1 I N*2 | N*3 | N*4 
I NICVRID I NICTMAT 

NICQPNT 



Hexadecimal Field 
Displacement Name 



NICNAME DS 
NICEPAD DS 
NICSTAT DS 



1H 
1H 
IX 



Bits defined in NICSTAT 



NICERLK 


EQU 


X 


'80' 


NICNTRL 


EQU 


X 


IJO' 


NICDISA 


EQU 


X 


20' 


NICSWEP 


EQU 


X 


10' 


NICEPMD 


EQU 


X 


08« 


NICLTRC 


EQU 


X 


02' 


NICDED 


EQU 


X 


01" 


NICTRQ 


EQU 


X 


80* 


NICHCLD 


EQU 


X 


10' 


NICMORE 


EQU 


X 


08' 


NICRUNN 


EQU 


X 


04* 


NICREAD 


EQU 


X 


02' 


HICCPNA 


EQU 


X 


01' 



NICFLAG DS 



IX 



Field Description, Contents, Meaning 

3704/3705 NCP resource name 
Subchannel address when in EP mode 
N*1 Resource status flags 



Device error lock is set 

Control operation is active 

Resource inactive (offline) 

Resource is switchable to EP mode 

Resource now in emulator mode 

NCP line trace active 

Resource is dedicated 

Graphic device - timer request pending 

Graphic device - screen full in hold status 

Graphic device - screen full in more status 

Graphic device - screen in running status 

Graphic device - read pending for screen input 

Graphic device — last input not accepted 

N*2 Interface control flags 



Bits defined in NICFLAG 



NICSESN 


EQU 


X 


80' 


NICATTN 


EQU 


X 


40' 


NICPSUP 


EQU 


X 


20' 


NICATOF 


EQU 


X 


10' 


NICENAB 


EQU 


X 


08' 


NICDISB 


EQU 


X 


02' 


NICMTA 


EQU 


X 


01' 


NICFMT 


EQU 


X 


80' 


NICDIAG 


EQU 


X 


40' 


NICALRM 


EQU 


X 


10' 


NICCARD 


EQU 


X 


04' 


NICPROCN 


EQU 


X 


01' 



Session is active for t 
Attention handling in p 
Resource has print supp 
Suppress attention sign 
Resource is active and 
Resource to be disabled 
Multiple terminal acces 
Graphic device - screen 
Graphic device - screen 
Graphic device - screen 
Graphic device - data f 
Graphic device - proces 



his device 

rogress 

ress feature 

al character 

enabled 
as soon as possible 

s resource 
formatted VM/370 online 
written with DIAGNOSE 
has an alarm message 

rem card reader 

s control now 



60 IBM VM/370: Data Areas and Control Block Logic 



MICBLOK 



Hexadecimal Field 
Displacement Name 



6 


NICLLEN 


DS 


IX N*3 


7 


MICTYPE 


DS 


IX N*a 




Bits def 


ined 


in NICTYPE 




NICCTLR 


"equ 


X'OO* 




NICLINE 


EQU 


X'80' 




NICTERM 


EQU 


X«40' 




NICLGEP 


EQU 


X»20' 




NICSDLC 


EQU 


x'oe* 




MICLBSC 


EQU 


X'04' 




NICSHCH 


EQU 


X'02' 




HICMLTP 


EQU 


X'01' 




NICTELE 


EQU 


XMO* 




NICCIBM 


EQU 


X'08« 




NICRCPU 


EQU 


X'04' 




HICRSPL 


EQU 


X'02' 




NICGRAF 


EQU 


X'OI* 




NIC3271 


EQU 


X'OB* 




NIC3275 


EQU 


X'04' 




NICOPRDR 


EQU 


XMO' 


8 


NICRCNT 


DS 


1H 


A 


HICVHID 


DS 


1H 


C 


NICTMAT 


DS 


IF 


10 


NICUSER 


DS 


IF 


14 


NICQPNT 


DS 


IF 



Field Description, Contents, Meaning 

Terminal output line length 
Resource type/features 



Resource is the 3704/3705 
Resource is a teleprocessing line 
Resource is a terminal device 
Resource is a logical line group 
LINE - Synchronous data link control 
LINE - Binary synchronous line control 
LINE - Switched line interface 
LINE - Multiple-drop leased line 
TERM - Telegraph line adapter 
TERM - Selectric based terminal 
TERM - Bisynch remote computer 
TERM - Bisynch remote spool device 
TERM - Bisynch remote graphics 
Graphic device - 3271 control unit 
Graphic device - 3275 control unit 
Graphic device - card reader feature 

Retry count for BTU errors 
Virtual resource ID when dedicated 
TOD clock value when attached 
VMBLOK address of associated user 
Pointer to input BTU chain 

Dexice Dependent Data - 3271. and 3275 on Binary Synchronous Lines 





ORG 


NICEPAB 


2 


NICCORD DS 


IX 


3 


NICTMCD DS 


IX 




iits Refined 


in NICTMCD 



NICTABF EQU X'BO* 

NICSIO EQU X«40' 

NICAPL EQU X«20' 

ORG NICRCNT 

NICSELT DS 1H 

NICPCLL DS 1H 

NICATRB DS IF 

NICSIZE EQU (*-NICBLOK) 

Eguate Symbols for VM^370 



Current line coordinates 
Terminal mode 



Second scan of screen's input area 
DIAGNOSE issued to input area 
APL on for 3270 remote 



Remote station selection character 
Remote station polling characters 
Timer reguest block address 

/8 Size of block in doublewords (X'03') 

SuEEort of the 3704/3705 



WRITBRK EQU X«09" 
RDBUFLN EQU 96 
RDBUFNO EQU 6 



Write break CCW op code 
Length of host read buffers 
Number of host read buffers 



Sense Bits (sense bjjte 0) Peculiar to the 3704/3705 



IPLEEQ EQU X'02' 
ABORT EQU X'01' 



IPL reguired — 3705 inactive 

Buffer depletion — transfer terminated 
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OBRRECN (long OBR) 



OBRRECN: UNIT CHECK ERROR RECORD (LONG OBR) 



OBRRECN provides error, sense, and other statistical data needed for error recording on a 
specified channel-attached I/O device. 



0BRSPE1 
OBRTMEN 



I OBRKEYN | OBRSWSN | 

8 I OBRDTEN | 

10 I OBRCPIDN 

18 I OBRPGMN 

20 I OBRFCCWN 

28 I OBRCSHN 

30 I S*1 I OBRCUAIN | OBRDEVTN 

38 I S*2 I CBRCUAPR | OBRIORTY | OBHSCNCT 

40 I DEVICE DEPENDENT DATA 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



2 4- Byte Header Record 



(j, 

8 

C 

10 



18 
20 
28 
30 
31 
34 
38 
39 



OBRKEYN 
OBRSWSN 



DS 
DS 



1H 
1H 



Record type 
Switches 



Bits defined in OBRSWSN and B_yte 

OBEMORE EQU X»80' More records to follow 

OERTOD EQU X'40« Time-of-day clock instruction issued 

OBRTIME EQU X'08« TIME macro used 



Bits defined in OBRSWSN Byte 
OEREOD EQU X ' 80 » 



OBRTEMP 


EQU 


X'40' 


OBRSHOBR 


EQU 


X«20' 


OBRDEMNT 


EQU 


X'04' 


0ERSPE1 


DS 


IF 


OBRDTEN 


DS 


IF 


OBRTMEN 


DS 


IF 


OBRCPIDN 


DS 


2F 



End of 24-Byte Header Record 



OBRPGMN DS 
OBRFCCWN DS 
OBRCSHN DS 
OBRDDCNT DS 
OBRCUAIN DS 
OBRDEVTN DS 
CBRSDRCT DS 
OBRCUAPR DS 



2F 
2F 
2F 
IX 
3C 
IF 
IX 
3C 



S*1 



S*2 



SDR counters dumped at EOD 

Temporary error 

Short record 

Volume demount 

Reserved for IBM use 

Date 

Time 

CPU ID and serial number 



Jot ID 

Failing CCW 

Failing CSH 

Number of doublewords in record 

Address of failing device 

Device type 

Number of SDR work area bytes 

Primarv unit address 
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OBRRECN (long OBR) 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



3C OBRICSTY DS 2X Number of retries 

3E OBRSNSCT DS 2X Number of sense bytes 

Format of Device Dependent Data 

All DASD Devices Format 

40 OERVOLN DS 8C Volume ID 

48 OBRLSKN DS 8X Last seek address 

50 OBRHAN DS 8X Home address 

23J4/23J9 Format 

58 OBRSDRWK DS 10X SDR work area 

62 OBRSENSN DS 24C Sense data 

7C OBRSIOCT DS IF Count of SIO's since last recording 

3350/^334 0/33 30^/230 5 Format 
ORG OBRSKN 

58 0ER33SNS DS 24C 3350/3340/3330/2305 sense data 

Unit Record Format 

ORG OERVOLN 

40 OBRURST DS 10X SDR work area 

4A OERURSNS DS 1C Unit record sense data 



40 OBR3505S DS 1C 3505/3525 sense data 



3505/3525 Format 

ORG OERVOLN 


OBR3505S DS 


1C 


3211 Format 




ORG 


OERVOLN 


OBRCORL DS 


IX 


DS 


7X 


0BRSDR32 DS 


10X 


OBR3211S DS 


6C 



40 OBRCORL DS IX Correlation number 

41 DS 7X Reserved for IBM use 
48 0BRSDR32 DS 10X SDR work area 
52 OBR3211S DS 6C 3211 sense data 

2400 Ta£e Format 

ORG OBRSKN 

48 OBRTAPST DS 1 OX SDR work area 

52 OERTAPSN DS 24C Tape sense data 

3420/3410 Ta^e Format 
ORG OBRLSKN 

48 OBRDVDEP DS 16C Device dependent data 

58 OBR342ST DS 20X SDR work area 

6C OBR3420S DS 24C 3420 sense data 

Short Outboard Record Format 
ORG OBRSERWK 

18 OBRDEVSH DS IF Device type 

1C OBRSDRSH DS IX No. of SDR work area bytes 

ID OBRCUA DS 3X Channel and unit address 

20 OBRSDRIN DS 20C SDR work area 
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OBRRECS (Short OBB) 



OBRRECN: UNIT CHECK ERROR RECORD (SHORT OBR) 



OBRRECN provides error, sense, and other statistical data needed for error recording on a 
specified channel-attached I/O device. 





8 

10 

18 

20 



OBRKEYH I OBRSWSN | 



OBRDTEN 



0BRSPE1 
I OBRTMEU 

OBRCPIDN 
OBRDEVSH I 0*1 | 
OBRSDRIM (variable length) 



OBRCUA 



Hexadecimal Field 
Displacement Name 








OBRKEYN 


DS 


1H 


2 




OERSHSN 


DS 


1H 






Bits def 


ined 


in OBRSWSN 




Byte 













OBRMORE 


EQU 


X'80« 






OBRTOD 


EQU 


X»40« 






OERTIME 


EQU 


X'OB' 




Byte 


1 










OBREOD 


EQU 


X'80« 






OBRTEMP 


EQU 


X'UO" 






OBRSHOBR 


EQU 


X'20' 






OBRDEMNT 


EQU 


x'oa' 


a 




0BRSPE1 


DS 


IF 


8 




OBRDTEN 


DS 


IF 


c 




OERTHEN 


DS 


IF 


10 




OBRCPIDN 


DS 


2F 



18 
1C 
ID 
20 



l^d of 24-Bite Header Record 



OBRDEVSH DS 
OBRSDRSH DS 
OBRCUA DS 
OBRSDRIN DS 



IF 
IX 
3X 
20C 



0*1 



Field Description, Contents, Meaning 

Record type 
Switches 



More records follow 

Time-of-day clock instruction issued 

TIME macro used 

SDR counters dumped at EOD 
Temporary error 
Short record 
Volume demount 

Date 
Time 
CPU ID and serial number 



Device type 

Number of SDR work area bytes 
Channel and unit address 
SDR work area 
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OWNDLIST, PAGTABLE 



OWKDLIST: CP OWNED V GLOMES LIST 

OHNDLIST contains a list of all the system owned DASD volumes that are used for paging, 
spooling, and temporary disk storage activity. Each entry specifies the volume identity 
and its preferred use (that is, paging/spooling/T-disk space) . This block is generated 
by the SYSOHN macro at system generation time. 



OWNDVSER 



OWNDRDEV 



Hexadecimal Field 
Displacement Same 






ONMDVSEB 


DS 


CL6 


6 


OWNDRDEV 


DS 


1H 






ORG 


OHNDREEV 


6 


OHNDPREF 


DS 


1H 



Field Description, Contents, Meaning 

Volume serial number 

Displacement of RDEVBLOK for the volume 



Allocation preference 



PAGTABLE: PAGE TABLE 

PAGTABLE is used by CP for allocating and referencing storage. It is referenced by the 
segment table (SEGTABLE) data area and contains a pointer to the swap table (SNPTABLE) 
which, in turn, is related to a DASD cylinder location. 



I PAGRSVl 

8 I PAGCORE I 



PAGSWP 



Sexadecimal Field 
Displacement Name 



8— Bjfte Header 






PAGRSVl DS 


1F 


4 


PAGSWP DS 


IF 


8 


PAGCORE DS 


IB 




Si£§ defined 


in PAGCORE+J 



PAGINVAL EQU X«08' 
PAGREF EQU X«01« 



Field Description, Contents, Meaning 



Reserved to align PAGCORE on a doubleword 
Pointer to SWPTABLE 

Real page address; start of page table 



PAGTABLE entry invalid 
Page has been referenced 
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PGBLOK 



PGBLOK: PSEUDO PAGE FAULT STACK BLOCK 



PGBLOK is used by VM/VS Handshaking. The block is created and stacked when a 
multiprogramming or multitasking VS1 program interrupt occurs when a referenced page is 
not available in storage. 



PGADDR 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 






PGPNT 


DS 


IF 


4 


PGADDR 


DS 


IF 




PGBSIZE 


EQU 


(♦-PGBLOK) /8 



Pointer to next PGBLOK on the stack 
Virtual page fault address 
PGBLOK size in doublewords 
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PSA 

PSA: PREFIX STORAGE AREA (LOW STORAGE LOCATIONS) 

PSA is the primary control block for controlling CP and virtual machine activity. This 
control block contains the normal low core IPL, logout and PSW information, the power and 
features of the processor, save areas used by BALR and FREER. This block also contains 
monitor and trace data and the necessary linkages to virtual machines, real devices, and 
spool files. 



Page 0, Machine Usage 





10 

20 

30 

40 

50 

60 

70 

80 

100 

160 

180 

ICO 

200 

240 

280 

2C0 

2F0 

300 

310 



IPLPSW 


_ ^ 
1 IPLCCW1 1 


IPLCCH2 


1 EXOPSW 1 


SVCOPSW 


1 PROPSW 1 


MCOPSH 


1 lOOPSW 1 


CSW 


1 CAH IQUANTHMRI 


TIMER 1 QUANTUM | EXNPSW | 

1 


SVCNPSW 


1 PRNPSW 1 


MCNPSH 


1 lOMPSW 1 




CPULOG 1 




FXDLOG 1 




FPRLOG 1 




GPRLOG 1 




CRLOG 1 




TEMPSAVE 1 




BALRSAVE | 




FREESAVE | 




FREEWORK | 


DATE 


1 TODATE 1 


STARTIME 


1 CPUID 1 


IDLEHAIT 


1 PAGEWAIT 1 



320 


lONTl 
RUNPJ 

RUNCRO 

PGREAD 


*AIT 
5H 


1 PROBTIME 


330 


IHUNUSER 


IDSPLPSH 


340 


IRUNCRI 


ICPSTAT 


ICPRESTRT 


350 


IPGHRITE 


1 PGWAITIM 


360 


PGHAITPG 
CPID ICPABEND 
ARSPPH lARSPPU 


IPSASVCCT 


|P*1 |P*2 


370 
380 


|P*3 |P*4 
lARSPRD 


lASYSVM 
lARIOPU 


390 


ARIOPR 


1 ARIORD 


|P*5 |P*6 

lASYSLC 

lARIOCD 


lARSPAC 


3A0 
3B0 


AVMREAL 
ARIOCT 


lASYSABND 
lARIOCH 


lASYSOP 
lARIODV 


3C0 


ARIOCC 
APAGCP 


1 AHIOUC 
ICPCREGO 


lARIODC 


lACORETBL 


3D0 


ICPCREG8 


IPSARSV9 


3E0 


PSARSV10 

PAGECUR 

TRACEFLG 


IPSARSV11 


lADMKFVR 


IXVRINST 


3F0 
400 


IMONNEXT 
IPSARSV12 


IPAGEND 

1 
-J 

jAHSVIS 


IPAGENXT 






Pi 




430 


INSTWRD1 


IINSTWRD2 


IINSTWRD3 


IINSTWRD4 


440 


APTRLK 

XPAGHUM 

AQCNHT 


Constants Pool 




4D0 


INOADD 
IXHIGHT16 


IX40FFS 


IXRIGHT24 


4E0 


lAFREE 


lAFRET 


4F0 


1 ADSPCH 


lAPTRAN 


IX2048BND 
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PSA 



Hexadecimal 


Field 






Displacement 


Name 








Machine 


Usage 







IPLPSH 


DS 


ID 


8 


IPLCCW1 


DS 


ID 


10 


IPLCCW2 


DS 


ID 






ORG 


IPLCCW1 


8 


PSARSV3 


DS 


IF 


C 


THACSTRT 


DS 


IF 


10 


TBACEMD 


DS 


IF 


14 


TRACCURR 


DS 


IF 


18 


EXOPSW 


DS 


ID 


20 


SVCOPSH 


DS 


ID 


28 


PHOPSW 


DS 


ID 


30 


MCOPSW 


DS 


ID 


38 


ICOPSW 


DS 


ID 


40 


CSW 


DS 


ID 


48 


CAW 


DS 


IF 


4C 


QUANTUMR 


DS 


IF 


50 


TIBER 


DS 


IF 


54 


QUAHTOH 


DS 


IF 


58 


EXMPSW 


DS 


ID 


60 


SVCNPSH 


DS 


ID 


68 


PRMPSW 


DS 


ID 


70 


MCNPSW 


DS 


ID 


78 


lOMPSH 


DS 


ID 


80 


CPULOG 


DS 


16D 




Definitions for the CPULOG 






ORG 


CPULOG 


80 




DS 


IF 


84 


INTEXF 


DS 


IF 


86 


INTEX 


EQU 


INTEXF+2 


88 


IMTSVCL 


DS 


1H 


8A 


INTSVC 


DS 


1H 


8C 


ISTPRL 


DS 


1H 


8E 


INTPR 


DS 


1H 


90 


TREXADD 


DS 


IF 


94 


MONCLASS 


DS 


1H 


96 


PERCODE 


DS 


1H 


98 


PERADD 


DS 


IF 


9C 


MCMCCDE 


DS 


IF 


AO 




DS 


ID 


A8 


CHAMID 


DS 


IF 


AC 


lOELPNTR 


DS 


IF 


BO 


ECSHLOG 


DS 


IF 


B4 




DS 


IF 


B8 


IBTKFLIN 


DS 


IF 


BA 


INTTIO 


EQU 


INTKFLIH+2 


BC 




DS 


11F 


£8 


INTMC 


DS 


ID 


FO 




DS 


ID 



Field Description, Contents, Meaning 



IPL start PSH 
IPL CCW 
IPL CCW 



Reserved for IBM use 

Address of start of trace table 

Address of end of trace table 

Address of next available trace table entry 

External old PSW 

SVC old PSW 

Program old PSW 

Machine check old PSW 

I/O old PSW 

Channel status word 

Channel address word 

Interval timer value at last interrupt 

13-microsecond interval timer 

Interval timer value at last dispatch 

External new PSW 

SVC new PSW 

Program new PSW 

Machine check new PSW 

I/O new PSW 

CPU and storage logout area 



Reserved for IBM use 

External interrupt code (fullword) 

External interrupt code (halfword) 

SVC instruction length code (ILC) 

SVC interrupt code 

Program instruction length code (ILC) 

Program interrupt code 

Translation exception address 

Monitor class 

PER interrupt code 

PER interrupt address 

Monitor code 

Reserved for IBM use 

Channel ID 

I/O extended logout (lOEL) pointer 

Limited channel logout (ECSW) 

Reserved for IBM use 

I/O interrupt key, flags, interface address 

I/O interrupt device address (halfword) 

Reserved for IBM use 

Machine check interrupt code 

Reserved for IBM use 
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PSA 



Hexadecimal 


Field 






Displacement 


Name 






F8 


FAILSTAD 


DS 


IF 


FC 


BEGNCODE 


DS 


IF 


10 


FXDLOG 


DS 


12D 


16 


FPRLOG 


DS 


4D 


18 


GPRLOG 


DS 


16F 


1C 


CBLOG 


DS 


16F 


20 


CPUSAGE 


DS 


OH 






ORG 


CPUSAGE 


200 


TEMPSAVE 


DS 


16F 






ORG 


TEMPSAVE 


200 


TEMPRO 


DS 


IF 


2 04 


TEMPR1 


DS 


IF 


208 


TEMPR2 


DS 


IF 


20C 


TEMPR3 


DS 


IF 


210 


TEMPR4 


DS 


IF 


214 


TEMPR5 


DS 


IF 


218 


TEMPR6 


DS 


IF 


21C 


TEMPR7 


DS 


IF 


220 


TEMPR8 


DS 


IF 


224 


TEMPR9 


DS 


IF 


228 


TEMPR10 


DS 


IF 


22C 


TEMPR11 


DS 


IF 


230 


TEMPR12 


DS 


IF 


234 


TEMPR13 


DS 


IF 


238 


TEMPR14 


DS 


IF 


23C 


TEMPR15 


DS 


IF 


240 


BALRSAVE 


DS 


16F 






ORG 


BALRSAVE 


240 


BALRO 


DS 


IF 


244 


BALR1 


DS 


IF 


248 


BALR2 


DS 


IF 


24C 


BALR3 


DS 


IF 


250 


BALR4 


DS 


IF 


254 


BALR5 


DS 


IF 


258 


BALR6 


DS 


IF 


25C 


BALR7 


DS 


IF 


260 


BALR8 


DS 


IF 


264 


BALR9 


DS 


IF 


268 


BALR10 


DS 


IF 


26C 


BALR11 


DS 


IF 


270 


BALR12 


DS 


IF 


274 


BALR13 


DS 


IF 


278 


BALR14 


DS 


IF 


27C 


BALR15 


DS 


IF 



Field Description, Contents, Meaning 

Failing storage address 

Region code 

Fixed logout area 

Floating-point register logout area 

General register logout area 

Control register logout area 

End of machine usage, start of CP usage 



Temporary save area 



Registers 0-15 



BALR linkage save area 



Registers 0-15 



280 



FREESAVE DS 



16F 



DMKFRE save area 







ORG 


FREESAVE 


280 


FREERO 


DS 


IF 


284 


FREER1 


DS 


IF 


288 


FREER2 


DS 


IF 


28C 


FREER3 


DS 


IF 


290 


FREER4 


DS 


IF 


294 


FREER5 


DS 


1F 


298 


FREER6 


DS 


IF 


29C 


FREER7 


DS 


IF 


2A0 


FREER8 


DS 


IF 


2A4 


FREER9 


DS 


1F 



Registers 0-15 
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PSA 



Hexadecimal 
Displacement 

2A8 
2AC 
2B0 
2B4 
2B8 
2BC 



Field 
Name 

FREERIO 
FBEEE11 
FREER12 
FREER13 
FREERIU 
FREEE15 



DS 
DS 
DS 
DS 
DS 
DS 



IF 
IF 
IF 
IF 
IF 
IF 



Field Description, Contents, Meaning 



2C0 
2F0 
2F8 
300 
308 



FREEWORK DS 
DATE DS 
TODATE DS 
STARTIHE DS 
CPUID DS 



12F 

CL8 

ID 

ID 

ID 



DMKFRE work area 

Date - mm/dd/yy - edited EBCDIC 

TOD clock at 00.00.00 today - local time 

Date and time started - TOD clock value 

CPU ID 



308 
309 
30C 
3 0E 

310 
318 
320 
328 
330 
338 
33C 
340 
344 
348 



348 



ORG 
CPUVERSN DS 
CPUSER DS 
CPUMODEL DS 
CPUMCELL DS 

IDLEWAIT DC 
PAGEHAIT DC 
lONTHAIT DC 
PROBTIME DC 
RUNPSW DS 
RUNUSER DS 
DSPLPSW DS 
RUNCRO DS 
RUNCR1 DS 
CPSTAT DS 

ORG 
CPSTATUS DS 



CPUID 

IX 

3X 

2X 

1H 



Version code 

CPU serial number - packed unsigned 

CPU model number 

Maximum length in bytes of MCEL 



X'7FFFFFFFFFFFF000' Total system idle wait time 

X'VFFFFFFFFFFFFOOO' Total system page wait time 

X'7FFFFFFFFFFFF000' Total system I/O wait time 

X'VFFFFFFFFFFFFOOO' Total system problem state time 

ID PSH last loaded by dispatcher 

IF Address of dispatched VMBLOK 

IF Load PSH instruction used to dispatch 

IF Control register at dispatch 

IF Control register 1 at dispatch 

IF CP running status 



CPSTAT 
IX 



Bits defined in CPSTATUS 





CPWAIT 


EQU 


X'80' 




CPRUH 


EQU 


X'40' 




CPEX 


EQU 


X'20' 




CPFVRUN 


EQU 


X'10' 


349 


XTNDLOCK 


DC 


X'OO' 


34A 


CPSTAT2 


DC 


IX 




Bits def 


ined 


in CPSTAT2 



CPMICAVL EQU X'80' 
CPMICON EQU X'40' 
CPSHRLK EQU X'20' 



CP running status 



CP in wait state 

CP running user in RUNUSER 

CP executing stacked request 

Reserved for IBM use 

System extending free storage if = X'FF' 

Flag tyte 



virtual machine assist available on CPU 
Virtual machine assist is on for system 
CP processing shared named system page 







ORG 


THACEFLAG 


34C 


CPRESTRT 


DS 


1F 


350 


PGREAD 


DS 


IF 


354 


PGWRITE 


DS 


1F 


358 


PGWAITIM 


DS 


ID 


360 


PGHAITPG 


DS 


ID 


368 


PSASVCCT 


DS 


IF 


36C 


PAGELOAD 


DS 


1H 


36E 


PAGERATE 


DS 


1H 


370 


PSEHDCLR 


DS 


OF 


370 


PID 


DS 


IF 


374 


CPABEHD 


DS 


IF 


378 


PSTARTSV 


DS 


OF 


378 


SYSIPLDV 


DS 


1H 



Restart address if external interrupt marks 
page invalid 

Total number of page reads 

Total number of page writes 

Time spent in page wait (TOD units) 

Time spent in page wait, x pages waiting 

Total number of user SVCs 
P*1 Page wait percent, last measurement 
P*2 Paging rate, pages per second 

End of area cleared by DMKCPINT 

CP running identifier 

CP ABEND code 

Start of save/restored code 
P*3 device address of system IPL device 
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PSA 



Hexadecimal 


Field 






Displacement 


Name 






37A 


PGS RATIO 


DC 


H'O" P*4 


37C 


ASYSVM 


DC 


V{DMKSYSVM) 


380 


AESPPR 


DC 


V (DMKESPPR) 


38U 


ARSPPU 


DC 


V(DMKRSPPU) 


388 


ARSPRD 


DC 


V (DMKRSPRD) 


38C 


ARIOPU 


DC 


V (DMKRIOPU) 


390 


ARIOPR 


DC 


V (DHKRIOPR) 


394 


ARIORD 


DC 


V(DMKRIORD) 


398 


IPUADDR 


DS 


1H P*5 


39A 


PSARSV6 


DS 


1H P*6 


39C 


ARSPAC 


DC 


V (DMKRSPAC) 


3A0 


AVMREAL 


DC 


A(0) 


3A4 


ASYSABND 


DC 


A(0) 


3A8 


ASYSLC 


DC 


V(DMKSYSLC) 


3AC 


ASYSOP 


DC 


V (DMKSYSOP) 


3B0 


ARIOCT 


DC 


V(DMKRIOCT) 


3B4 


ARIOCH 


DC 


V(DMKRIOCH) 


3B8 


ARIOCU 


DC 


V(DMKRIOCU) 


3BC 


ARIODV 


DC 


V (DMKRIODV) 


3C0 


ARIOCC 


DC 


V(DMKRIOCC) 


3C4 


ARIOUC 


DC 


V (DMKHIOUC) 


3C8 


ARIODC 


DC 


V(DMKRIODC) 


3CC 


ACORETBL 


DC 


V (DMKSYSCS) 


3D0 


APAGCP 


DC 


A (X'FFFFFF*) 


3D4 


CPCHEGO 


DC 


X'808008C0' 


3D8 


CPCREG8 


DC 


F'O' 


3DC 


LASTUSER 


DS 


V(DMKSYSVM) 


3E0 


PSARSV10 


DS 


IF 


3E4 


PSARSV11 


DS 


IF 


3E8 


ADMKFVR 


DC 


F'O* 


3EC 


XVEIHST 


DC 


F'O* 


3F0 


PAGECUR 


DS 


IF 


3F4 


MOMHEXT 


DS 


IF 


3F8 


PAGEND 


DS 


IF 


3FC 


PAGESXT 


DS 


IF 


400 


TRACEFLG 


DS 


IF 


400 


TRACFLG1 


DS 


IX 




Bits def. 


Lned 


in TRACFLG1 




TRACOl 


'equ 


X'80' 




TRAC02 


EQU 


X'40' 




TRAC03 


EQU 


X'20" 




TRAC04 


EQU 


X'lO* 




TRAC05 


EQU 


X'08' 




TRAC67 


EQU 


X'04« 




TRAC08 


EQU 


X'02« 




THAC09 


EQU 


X'OT 



Field Description, Contents, Meaning 

Page steals/total replenished 

Address of system VMBLOK 

Address of system printer file chain 

Address of system punch file chain 

Address of system reader file chain 

Address of system punch table 

Address of system printer table 

Address of system reader table 

Instruction processing address 

Reserved for IBM use 

Address of system accounting chain 

VMBLOK address of Virtual=Real user 

Address of system ABEND printer 

Address of SYSLOCS information 

Address of system operator VMBLOK 

Address of real channel index table 

Address of first RCHBLOK 

Address of first RCUBLOK 

Address of first RDEVBLOK 

Address of count of real system channels 

Address of count of real system control units 

Address of count of real system devices 

Address of system CORTABLE 

Address of first pageable program 

CP architecture control and external mask 

Monitor call enable mask 

Last user to be dispatched 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Trace table flags 

Trace table flag 



External interrupt tracing on 
SVC interrupt tracing on 
Program interrupt tracing on 
Machine check tracing on 
I/O interrupt tracing on 
FREE/FRET call tracing on 
Enter dispatch tracing on 
Queue drop tracing on 



401 



TRACFLG2 DS 



IX 



Trace table flag 



Bits defined in TRACFLG2 





TRACOA 


EQU 


X'80' 




TRACOC 


EQU 


X^40' 




TRACOD 


EQU 


X'20' 




TRACBEF 


EQU 


XMO» 




TRAC10 


EQU 


X'08' 




TRAC11 


EQU 


X'04« 


402 


TRACFLG3 


DS 


1H 


404 


PSARSV12 


DS 


IF 



Run user tracing on 

Unstack I/O interrupt tracing on 

Virtual CSH stored tracing on 

SIO, TIO, HDV tracing on 

Unstack lOBLOK or TRQBLOK tracing on 

Trace BTU activity for 370X NCP 

Reserved for IBM use 
Reserved for IBM use 
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PSA 



Hexadecimal 
Displacement 

408 
430 
434 
438 
43C 



440 
470 
478 
440 
480 
484 
488 
48C 
490 
494 
498 
49C 
4&0 
4A4 
4A8 
4AC 
4B0 
4B4 
4B8 
4BC 
4C0 
4C4 
4C8 
4CC 
4D0 
4D4 
4D8 
4DC 
4E0 
4E4 
4E8 
4 EC 
4F0 
4F4 
4F8 
4FC 

500 



Field 
Name 

PSARSV15 DS 
mSTWRDI DC 
IBSTHRD2 DC 
INSTHRD3 DC 
IHSTWRD4 DC 



Field Description, Contents, Meaning 



5D 

F'O' 

F'O' 

F'0« 

F«0« 



Reserved for IBM use 
Reserved for Installation use 
Reserved for Installation use 
Reserved for Installation use 
Reserved for Installation use 



hi^% of Ire^jieilili Used Constants 



ZEROES DC 6D'0« 

BIAMKS DC 8X'40' 

FFS DC 8X«FF' 

FO EQU ZEROES 

F 1 DC F • 1 • 

F2 DC F'2' 

F3 DC F«3' 

F4 DC F'4» 

F5 DC F»5' 

F6 DC F«6» 

F7 DC F'7' 

F8 DC F'8' 

F9 DC F»9' 

F10 DC F'lO* 

F15 DC F«15« 

F16 DC F»16« 

F20 DC Ff20' 

F24 DC F«24' 

F60 DC F«60" 

F240 DC F«240« 

F255 DC F'255' 

F256 DC F»256' 

F4095 DC F'4095' 

F4096 DC F«4096» 

APTRLK DC V(DHKPTRLK 

NOADD DC X'FFOOOOOO* 

X40FFS DC X'40FFFFFF' 

XRIGHT24 DC X'OOFFFFFF* 

XPAGNUM DC X«OOFFF0006« 

XHIGHT16 DC X'OOOOFFFF* 

AFREE DC V(DMKFREE) 

AFRET DC V(DMKFRET) 

AFRET DC VCDMKQCHttT) 

ADSPCH DC V(DMKESPCH) 

APTRAN DC V(DMKPTRAN) 

X2048BND DC X»00FFF800" 

PSAEND DS OD 



Also = -1 



Also = X'OOOOOOOF' 



Also = X'0000003C' 
Also = X'OOOOOOFO* = CO" 
Also = X'OOOOOOFF' 
Also = X" 00000100' 
Also = X'OOOOOFFF* 
Also = X' 00001000* 
Address of DHKPTR 
Frequently-used work value 
Frequently-used work value 
Isolate right 24 bits 
Isolate the page number 
Isolate the right 16 bits 
Address of DMKFREE 
Address of DMKFRET 
Address of DMKQCNWT 
Address of DMKDSPCH 
Address of DMKPTRAU 
Locate a half-page boundary 

End of page usage. 
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REAL I/O CONTBOL BLOCKS 



In order to control the activity of the I/O 
devices of the system and schedule I/O 
requests upon then, I/O control uses 
several types of control blocks. These 
blocks can be separated into two basic 
types: 



Static blocks that describe 
components of the I/O system. 



the 



Dynamic blocks that represent active and 
pending requests for I/O operations. 



The I/O components of the real system 
are described by one control block for each 
channel, control unit, and device available 
to the control program. Units present but 
not represented by control blocks are not 
available for either user- initiated or 
control program-initiated operations. 

BCHBLOK: For each channel attached to the 
system there exists a Real Channel Control 
Block (RCHBLOK) which contains: 

• The channel portion of the address of 
its attached units. 



Status flags indicating the 
availability for scheduling. 



channel 's 



A two-way queue anchor pointing to the 
list of I/O requests waiting to use the 
channel. 



channel to which it is attached. The 
RCDBLOK contains a table of 16 halfword 
entries that represent the displacment into 
the Real Device Table of its attached 
devices. This table is referenced in the 
same manner as the table in the RCHBLOK. 

RDEVBLOK: Each device and 3270 remote 
communications line in the system is 
represented by a Real Device Control Block 
(RDEVBLOK) , contains the device portion of 
the unit address and status flags similar 
to those in RCHBLOK and RCOBLOK. There is 
also a pointer for those operations that 
are waiting for the device to become 
available. Fields that appear in the 
RDEVBLOK and not in the other blocks 
include a pointer to the I/O request that 
is currently active on the device, SIO 
counts, and a pointer to error and sense 
information. The RDEVBLOK contains a 
pointer to the RCUBLOK for the control unit 
to which it is attached and fields of 
device dependent information which do not 
affect the operation of I/O control. 

If the RDEVBLOK is associated with 3270 
remote communications line, then the 
RDEVBLOK contains a pointer to NICBLOKs 
that represents the resources on that 
line. 

lOBLOK: I/O requests that are active in the 
system are represented by lOBLOKs. There 
is one lOBLOK for each operation (that is, 
channel program) to be executed. The 
lOBLCK is constructed by the requesting 
task and contains such information as: 



In addit 
half-word i 
address or 
displacement 
table of the 
units attac 
entries are 
unit address 
from the u 
control bloc 



ion, each RCHBLOK contains 32 

ndexes, arranged in ascending 

der, that represent the 

into the Real Control Unit 

control blocks for the control 
hed to the channel. The 32 

required because the control 
may be made up of five bits 
nit address. To locate the 
k for a given unit: 



in the RCHBLOK a 
to twice the 



1 . Index into the table 
displacement equal 
control unit address. 

2. Load the index value. 



3. Add the value to the base address of 
the Real Control Unit Table. 

RCUBLOK: The Real Control Unit Table is 
composed of Real Control Unit Blocks 
(RCUBLOK) , one for each control unit on the 
system. These blocks are similar to the 
RCHBLOK in that they contain the control 
unit portion of the address and status 
flags, and a pointer to a queue of I/O 
requests. In addition, the RCUBLOK 
contains a pointer to the RCHBLOK for the 



• The identity of the requestor 

• The address of the channel program to be 
executed 

• The address to which control is to be 
returned upon completion of the 
operation 

In addition, the lOBLOK contains status 
flags that indicate the current state of 
the operation (such as, whether or not an 
error has occurred, if an error recovery 
procedure (ERP) is in control, and the 
condition returned from the SIO) and the 
CSH associated with the interrupt that 
signals the end of the operation. Since 
lOBLOKS are queued off various I/O control 
blocks, they also contain forward and 
backward queue pointers. DMKIOS builds in 
them the real device address of the unit on 
which the operation is started. 



In general, the lOBLOK representing a 
given operation progresses through the 
system by being queued, in turn, from 
device, control unit, and channel blocks 
until a path is at last free to the 
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device. A 
operation 
dequeued fr 
queue maint 
Each time 
entries on 
control is 
the Interr 
After I/O c 
given task, 
the compone 
completion 



SIC is then issued 
is complete, the 
om the RDEVBLOK and 
ained in the dispat 
the dispatcher is 

the queue are u 
passed to the point 
upt Return Addre 
ontrol stacks the I 
it attempts to re 
nts that have been 
of the operation. 



After the 
lOBLOK is 

stacked on a 
Cher, DMKDSP. 
entered, the 
nstacked and 

specified in 
ss (lOBIRA) . 
OBLOK for the 
start all of 

freed by the 



and each resource attached to a 3270 bisync 
line. The NICBLOK provides the 
correspondence between the line or device 
address and the physical resource connected 
to that line. This block not only defines 
the identity of the terminal type, line, or 
control unit but it also contains flags and 
status information pertaining to that 
resource. If the defined resource is a 
remote 3270 component, the NICBLOK contains 
the current line co-ordinates, polling and 
selection characters information as well. 



MICBLOK: There is one Network Interface 
Control Block for each defined 3704 or 3705 



The remainder of this section describes 
the real I/O control blocks. 
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RCHBLOK 



RCHBLOK: REAL CHANNEL BLOCK 

RCHBLOK contains status and type information for the specified channel. The linkage to 
I/O tasks operated on by that channel and to the control units attached to that channel 
is also maintained. 





8 

10 

18 

20 



HCHADD I RCHLOCK 
RCHFIOB 
R*3 I H*4 I R*5 I R*6 
RCHQUED 



I R*1 I R*2 I RCHQCNT 
I RCHLIOB 

I RCHRSV2 

I RCHOPER 



RCHCUTBL 



Hexadecimal Field 
Displacement Name 






RCHADD 


DS 


1H 


2 


RCHLOCK 


DS 


1H 


4 


RCHSTAT 


DS 


IX 




Bits defined 


in RCHSTAl 




RCHBUSY 


EQU 


X'80' 




RCHSCED 


EQU 


X'40' 




RCHDISA 


EQU 


X'20" 




RCHDED 


EQU 


X'OI* 


5 


RCHTYPE 


DS 


IX 




Bits def 


ined 


in RCHTYPE 



Field Description, Contents, Meaning 

Channel address 
Channel lock 
R*1 channel status 



Channel busy 
lOB scheduled on channel 
Channel disabled 
Channel dedicated 



RCHSEL EQU X'80» 

RCHBMX EQU X»40' 

RCHMPX EQU X'20' 

RCH370 EQU X'01' 



R*2 Channel type 



Selector channel 
Block multiplexer channel 
Byte multiplexer channel 
S/370 type channel {S/370 instruction 
support) 

Number of lOBLOKs queued off channel 

Pointer to first lOBLOK queued 

Pointer to last lOBLOK queued 

Channel data check count 

Channel control check count 

Interface control check count 

Channel chaining check count 

Reserved for IBM use 

lOBLOK queued on channel time 

lOBLOK operational on channel time 

Control units attached - RCUSTART index 

RCHSIZE EQU {*-RCHBLOK) /8 RCHBLOK size in doublewords (X»0C«) 



6 


RCHQCNT 


DS 


1H 




8 


RCHFIOB 


DS 


IF 




C 


RCHLIOB 


DS 


IF 




10 


RCHDTCK 


DS 


IX 


R*3 


11 


RCHCCCK 


DS 


IX 


R*4 


12 


RCHIFCC 


DS 


IX 


R*5 


13 


RCHCHCK 


DS 


IX 


R*6 


14 


RCHRSV2 


DS 


IF 




18 


RCHQUED 


DS 


IF 




1C 


RCHOPER 


DS 


IF 




20 


RCHCUTBL 


DS 


32H 
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RCUBLOK 



RCOBLOK: REAL CONTRQIi Mil iiOCK 

RCUBLOK provides control and status information on a defined real control unit. Linkages 
are provided to lOBLOKs queued. 

I RCUADD I RCULOCK | R* 1 | R*2 | RCUQCNT 

8 I RCUFIOB I RCULIOB 

10 I RCUCHA I RCUCHB 

18 I RCUQUED I RCUOPER 

20 I RCDDVTBL 



Hexadecimal Field 
Displacement Name 






RCUADD 


DS 


1H 


2 


RCULOCK 


DS 


1H 


4 


RCUSTAT 


DS 


IX 




Bits def 


ined 


in RCUSTAT 




RCUBUSY 


EQU 


X«80» 




RCUSCED 


EQU 


X'UO' 




RCUDISA 


EQU 


X'20» 




RCUDED 


EQU 


X'01* 


5 


RCUTYPE 


DS 


IX 




Bits defined 


in RCUTYPE 



RCUSUB EQU X'UO* 

RCU2701 EQU X«01» 

RCU2702 EQU X»02» 

RCU2703 EQU X«03« 



6 


RCUQCHT 


DS 


1H 


8 


RCUFIOB 


DS 


IF 


C 


RCULIOB 


DS 


IF 


10 


RCUCHA 


DS 


IF 


14 


RCUCHB 


DS 


IF 


18 


RCUQUED 


DS 


IF 


1C 


RCUOPER 


DS 


IF 


20 


RCUDVTBL 


DS 


16H 




RCUSIZE 


EQU 


(*-RCU 






ORG 


RCUCHA 


10 


RCUPRIME 


DS 


IF 



Field Description, Contents, Meaning 

Control unit address 
Control unit lock 
R*1 Control unit status 



Control unit busy 
lOB scheduled on control unit 
Control unit disabled 
Control unit dedicated 

R*2 Control unit type 



This control unit can attach to only 1 

subchannel 
This is a subordinate control unit 
TCU is a 2701 
TCU is a 2702 
TCU is a 2703 

Number of lOBLOKs queued off control unit 
Pointer to first lOBLOK queued 
Pointer to last lOBLOK queued 
Pointer to RCHBLOK - interface A 
Pointer to RCHBLOK - interface B 
lOBLOK queued on control unit time 
lOBLOK operational on control unit time 
Devices attached - RDVSTART index 

RCUBLOK size in doublewords (X«08») 



Pointer to the primary control unit 



76 IBM VM/370: Data Areas and Control Block Logic 



BCHTASK 

RCHTASK: TRANSLATED VIRTfiAL 1^0 CCH 

RCHTASK contains the virtual— to-real CCW translation and other data related to a virtual 
nachine's I/O operation. A pointer is maintained to the virtual CCH operation. 



1 — 

1 
1 _ 


RCHPNT 


1 RCWVCAH 






1 

8 1 
1 


RCWVCMT 1 


RCWRCNT 1 RCNHEAD | 


RCWCCNT 




10 1 

L - 




HCHCCW 




__. .J 



Hexadecimal Field 
Displacement Name 






RCHPNT 


DS 


IF 


4 


RCHVCAW 


DS 


IF 


8 


RCHVCNT 


DS 


1H 


A 


RCWRCNT 


DS 


IB 


C 


RCHHEAD 


DS 


1H 


E 


RCHCCNT 


DS 


1H 


10 


RCWCCW 


DS 


ID 






ORG 


RCWCCW 


10 


RCHADDR 


DS 


IF 


14 


RCWFLAG 


DS 


IX 


15 


RCWCTL 


DS 


IX 




Bits defined 


in RCWCTL 




RCWIO" 


EQU 


X»80' 




RCHGEN 


EQO 


X'40» 




RCHHMR 


EQD 


X'20' 




RCNREL 


EQD 


XMO' 




RCHISAM 


EQD 


X'08» 




RCW2311 


EQU 


X'04' 




RCWINVL 


EQU 


X»02' 




RCNSHR 


EQU 


X'01' 


16 


RCWCNT 


DS 


1H 






ORG 


RCWADER 


10 


RCHCOMND 


DS 


IX 



Field Description, Contents, Meaning 

Pointer to next RCWTASK 

Virtual address of CCW chain 

Virtual CCW count 

Real CCW count 

RCWTASK header mark X'FFFF* 

RCWTASK size in doublewords 

One or more CCWs for device I/O 



CCW data address 

CCW flag bits 

CCW CP-control bits 



I/O data page locked 

CP-generated CCW 

DMKDNT must relocate home address/record RO 

CCW address relocatable if CCWs moved 

ISAM modifying CCW 

TYP2311T-B pseudo 2311 on 2314 

CCW operation code or address is invalid 

Shared user page was copied 

CCW byte count 



CCW command code 
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RDEVBLOK 



RDEVBLOK: REAL DEVICE BLOCK 



RDEVBLCK is generated by the RDEV macro at system generation time. There is one RDEVBLOK 
for each real device and one for each binary synchronous line. The block contains status 
and device parameters applicable to I/O instruction processing. 




8 
10 
18 
20 
28 
30 
38 
40 
48 
50 



RDEVAED I RDEVLOCK 
RDEVFIOB 
RDEVCUA 



I R*1 



R*2 I R*3 
RDEVIIOB 
RDEVCDB 



R*4 



RDEVQUED 
RDEVIOCT I RDEVAIOB 

RDEVUSER I RDEVATT | RDEVCYL 

RDEVSER I RDEVLNKS 

RDEVTCTL 

RDEVTMAT | R*5 | R*6 | R*7 | R*8 

RDEVIOER I RDEVCTHS 

RDEVNAHE | RDEVRSV1 | RDEVHSV2 



Hexadecimal Field 
Displacement Name 



RDEVADD DS 
RDEVLOCK DS 
RDEVSTAT DS 



1H 
1H 
IX 



Field Description, Contents, Meaning 

Device address 
Device lock 
R*1 Device status 



Bits defined in RDEVSTAT 

RDEVBUSY EQU X'80' 

RDEVSCED EQU X'40' 

RDEVDISA EQU X'20' 

RDEVRSVD EQU X'10' 

RDEVIRH EQU X'08« 

RDEVNRDY EQU X'04» 

RDEVWAII EQU X»02» 

RDEVDED EQU X»01« 



Device busy 

lOB scheduled on device 

Device disabled (offline) 

Device reserved 

Device in intensive error recording mode 

Device intervention required 

GRAF - lOBLOK pending, queue requests 

Dedicated device (attached to a user) 
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RDEVBLOK 



Hexadecimal 
Displacement 



46 
47 
48 
4C 



Field 
Name 

RDEVFLAG DS 

Bits defined 

RDEVSKUP EQO 

RDEVPREF EQU 

RDEVSYS EQU 

RDEVOWN EQU 

RDEVMOUT EQU 

RDEVPSUP EQU 

RDEVPREP EQU 

RDEVACTV EQU 

RDEVIDIST EQU 

RDEVENAB EQU 

RDEVHIO EQU 

RDEVDISB EQU 

BDEVEPMD EQU 

RDEVDRAN EQU 

RDEVTERM EQU 

RDEVACNT EQU 

HDEVSPAC EQU 

RDEVRSTR EQU 

RDEVBACK EQU 

RDEVSEP EQU 

RDEVLOAD EQU 

RDEVLNCP EQU 

RDEVLCEP EQU 

RDEVSLOW EQU 

RDEVAUTO EQU 

RDEVWAIT EQU 

RDEVEPIH EQU 

RDEVRCVY EQU 

RDEVTBTU EQU 



IX 



Field Description, Contents, Meaning 
R*2 Device flags, device dependent 



in RDEVFLAG 



X 


80' 


X 


40* 


X 


20' 


X 


10» 


X 


08' 


X 


80* 


X 


40' 


X 


20' 


X 


10' 


X 


08* 


X 


04" 


X 


02« 


X 


01' 


X 


80' 


X 


40* 


X 


20* 


X 


10« 


X 


08' 


X 


04' 


X 


02' 


X 


01' 


X 


80' 


X 


40' 


X 


20' 


X 


10' 


X 


08' 


X 


04' 


X 


02' 


X 


01' 



6 


RDEVTYPC 


DS 


IX 


R*3 


7 


RDEVTYPE 


DS 


IX 


R*4 


8 


RDEVFIOB 


DS 


IF 




C 


RDEVLIOB 


DS 


IF 




10 


RDEVCUA 


DS 


IF 




14 


RDEVCUB 


DS 


IF 




18 


RDEVQUED 


DS 


ID 




20 


RDEVIOCT 


DS 


IF 




24 


RDEVAIOB 


DS 


IF 




28 


RDEVUSER 


DS 


IF 




2C 


RDEVATT 


DS 


1H 




2E 


RDEVCYL 


DS 


1H 




30 


RDEVSER 


DS 


CL6 




36 


HDEVIMKS 


DS 


1H 




38 


RDEVTCTL 


DS 


8X 




40 


RDEVTMAT 


DS 


IF 




44 


RDEVQCNT 


DS 


IX 


R*5 


45 


RDEVSTA2 


DS 


IX 


R*6 




Bits d.ef 


Lned 


in RDEVSTA2 



RDEVRACT EQU X'80' 

RDEVBUCH EQU X'40' 

RDEVCOKJC EQU X'20' 

RDEVMDL DS IX 

RDEVFTR DS IX 

RDEVIOER DS IF 

RDEVCTRS DS IF 



R*7 
R*8 



DASD - ascending order seek queuing 
DASD — volume preferred for paging 
DASD - volume attached to system 
DASD - CP-owned volume 
DASD - volume mounted, not attached 
Console - terminal has print suppress 
Console - terminal executing PREPARE command 
Console — lOBLOK pending; queue request 
Console - 2741 terminal code identified 
Console — device is enabled 
Console - next interrupt from a halt I/O 
Console - device is to be disabled 
Console - 370X NCP resource in EP mode 
Spooling - device output drained 
Spooling — device output terminated 
Spooling - device busy with accounting 
Spooling - force printer to single space 
Spooling - restart current file 
Spooling - backspace the current file 
Spooling - print/punch job separator 
Spooling - UCS buffer verified 
Special — Network control program active 
Special - 270X Emulation program active 
Special - 370X in buffer slowdown mode 
Special - Automatic dump/load enabled 
Special - lOBLOK pending; queue requests 
Special - Emulator lines in use by system 
Special — Auto dump/load process active 
Special - BTU trace requested 

Device type class (See Appendix A) 

Device type (See Appendix A) 

Pointer to first lOBLOK queued 

Pointer to last lOBLOK queued 

Pointer to RCUBLOK - interface A 

Pointer to RCUBLOK - interface B 

lOBLOK queued time - TOD clock units 

Device I/O count 

Active lOBLOK 

Pointer to VMBLOK of dedicated user 

Attached virtual address 

DASD - current cylinder location 

Device volume serial number 

DASD - number of links to this disk 

Terminal control bytes 

Device attached time - TOD clock word 

Number of queued lOBLOKs 

Device status (byte 2) 



Active device is being reset 
Device is busy with the channel 
Contingent connection present 

Device model number 
Device feature code 

Pointer to lOERBLOK for last CP error 
Pointer to statistical data counter control 
block 
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RDEVBLOK 



Hexadecimal Field 
Displacement Name 



50 
52 
54 



40 



3C 



2E 



18 
1C 



18 
1C 

38 
3A 
3B 
3C 
3D 
3E 



46 
47 



RDEVNAME DS 
RDEVRSV1 DS 
RDEVRSV2 DS 



1H 
1H 
IF 



Field Description, Contents, Meaning 

Real device name 
Reserved for IBM use 
Reserved for IBM use 



RDEVSIZE EQU (*-RDEVBLOK) /8 RDEVBLOK size in doublewords (X'OA") 
For CP-owned Devices 



Anchor for ALOCBLOK chain for this device 
Device code - SYSOWNED index 







ORG 


RDEVUSER 


28 


RDEVALLH 


DS 


IF 


2C 


RDEVCODE 


DS 


1H 






ORG 


HDEVTCTL 


38 


RDEVPAGE 


DS 


IF 


3C 


RDEVRECS 


DS 


IF 



RDEVPNT DS 



IF 



Anchor for HECBLOK chain for paging 
Anchor for RECBLOK chain for spooling 

Pointer to next RDEVBLOK for allocation 



Il2£ Slotted 2301 IlSill^ P^Zices 

Pointer to DHOMTABL control block 



ORG 
RDEVDCTL DS 



RDEVRECS 
IF 



For GraEhic Devices 



ORG 
RDEVCORD DS 



RDEVCYL 
1H 



3F 



Current line coordinates 
EQL S£oolinc[ Unit Record Devices 



Pointer to active RSPLCTL block 
Device class (es) 



Pointer to CONTASK list 

Attention interrupt return address 

Start/stop line retry count 

Additional terminal flags 

Reserved for IBM use 

Device line length 

Device attention count 

370X base address for emulator line 



Terminal code 

Terminal set-address number 



TERM and GRAF - Logon process has been 

initiated 
TERM - Terminal in reset process 
TERM - Suppress attention signal 
GRAF - Screen full, more data waiting 
GRAF - Screen in running status 
GRAF - Read pending for screen input 
GRAF - Last input not accepted 
GRAF - Timer reguest pending 
GRAF - Control function interrupt pending 
GRAF - Screen full, in hold status 

Reserved for IBM use 





ORG 


RDEVQUED 


RDEVSPL 


DS 


IF 


RDEVCLAS 


DS 


4C 


For Terminal 


Devices 




ORG 


RDEVQUED 


RDEVCON 


DS 


IF 


RDEVAIRA 


DS 


IF 




ORG 


RDEVTCTL 


RDEVRCNT 


DS 


1H 


RDEVTFLG 


DS 


IX 


RDEVRSV3 


DS 


IX 


RDEVLLEH 


DS 


IX 


RDEVATNC 


DS 


IX 


RDEVBASE 


DS 


1H 




ORG 


RDEVMDL 


RDEVTMCD 


DS 


IX 


RDEVSADN 


DS 


IX 


Bits defined 


in RDEVTFLG 


RDEVLOG 


EQU 


X«80« 


RDEVREST 


EQU 


X»40' 


RDEVATOF 


EQU 


X'20' 


RDEVMORE 


EQU 


X'40» 


RDEVRUN 


EQU 


X»20' 


RDEVREAD 


EQU 


X»10« 


RDEVCPNA 


EQU 


X'08» 


RDEVTRQ 


EQU 


X'04« 


RDEVCTL 


EQU 


X»02» 


RDEVHOLD 


EQU 


X«01» 



RDEVRSV3 DS 



IX 
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RDEVBLOK 



Hexadecimal Field 
Displacement Name 



U6 



47 



ORG RDEVHDL 

RDEVTMCD DS IX 

Bits defined in RDEVTIJCD 

RDEVPTTC EQU X»00« 

RDEVCORR EQU X'04» 

RDEVAPLP EQD X'08» 

RDEVAPLC EQO X'OC 

RDEVUSC8 EQU X' 10" 



RDEVSADN DS 



IX 



Field Description, Contents, Meaning 
Terminal code 



PTTC/EBCD keyboard 
Correspondence keyboard 
APL PTTC/EBCD keyboard 
APL Correspondence keyboard 
DASCII-8 level keyboard 

Terminal set-address number 



Z2£ B.§§1 IZOiiZ^IOS Communications Controller 







ORG 


RDEVAIRA 


1C 


RDEVEPDV 


DS 


IF 






ORG 


RDEVCYL 


2E 


RDEVMAX 


DS 


1H 


30 


RDEVNCP 


DS 


CL8 


38 


RDEVmCL 


DS 


IF 


3C 


RDEVCKPT 


DS 


IF 




lor 3270 


Remote Support 






ORG 


RDEVNCP 


30 


RDEVBSC 


DS 


IF 


34 


RDEVDLY 


DS 


IF 



Start of free RDEVBLOK list for EP line 

Highest valid NCP resource name 
Reference name of active 3704 NCP 
Pointer to network control list 
Pointer to CKPBLOK for re-enable 



Pointer to BSCBLOK 

Poll delay timer interval 
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EECBLOK 

RECBLOK: DASD PAGE (SLOT) ALLOCATION BLOCK 

RECBLOK maintains the correlation of DASD storage pages to a specific cylinder location 
Also maintained is a bit map to indicate the page slots available for data page storage. 

I RECPNT I RECCYL | R*1 | R*2 | 

8 I RECHAP I 

Hexadecimal Field 

Displacement Mame Field Description, Contents, Meaning 






RECPUT 


DS 


IF 




4 


RECCYL 


DS 


1H 




6 


RECUSED 


DS 


IX 


R*1 


7 


RECMAX 


DS 


IX 


R*2 


8 


RECBAP 


DS 


1L 






Bits def 


ined 


in RECMAP 





Pointer to next RECBLOK on chain 

Cylinder address for pages in this block 

Number of pages currently in use 

Maximum number of pages available 

Page allocation bit map (128 pages maximum) 



- Page is available 

1 — Page has been assigned 

RECSIZE EQU (*-RECBLOK) /8 RECBLOK size in doublewords (X'03') 

Note: Although the size of RECMAP is fixed, the maximum number of pages 
available on a cylinder is device dependent. Bits corresponding to pages 
not physically present on a cylinder are set to 1. 
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RECPAG 



HECPAG: ERROR RECORDING PAGE RECORD 

RECPAG retains up to 4K bytes of error recording data for eventual placement on the 
specified error recording cylinder. 



I 



I — 



8 . 



RECCCPD 



I RECNXT I R*1 I R*2 



RECDATA (4088 bytes) 



-I 



Hexadecimal Field 
Displacement Name 



RECCCPD DS 
RECNXT DS 
RECFLAG1 DS 



4X 
2X 
IX 



R*1 



liis defined in RECFLAGJ. 
RECPAGIU EQU X'80' 
RECPAGFR EQU X'40' 
RECPAGFL EQU X'20' 
RECPAGER EQU X'10" 
RECFLAG2 DS IX 



R*2 



Bits defined in RECFLAG2 
RECPAGFM EQU X'80» 



RECPAGDN EQU X'OO" 
RECDATA DS 4088C 
RECPAGSZ EQU (♦-RECPAG) /8 



Field Description, Contents, Meaning 

CCPD of the record 

Displacement to next error record 

Record usage flags 



Page contains valid data 

Page is cleared 

Page is full of error records 

Next page is unreadable (I/O error) 

Record format flag 



Set in page 1 of a recording cylinder when 
the cylinder is being formatted. This flag 
bit is reset when all pages are cleared. 

Cylinder formatted 

Data area 

Size of page in doublewords (X'512') 
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RSPLCTL 



RSPLCTL: REAL SPOOL CONTROL BLOCK 



RSPLCTL is used in conjunction with SFBLOK for processing closed spool files, 





8 

10 



Hexadecimal Field 
Eisplacement Name 



RSPRSTRT 
RSPVPAGE 
RSPMISC 




4 
8 
C 
10 
14 



RSPRSTRT DS 
RSPDPAGE DS 
RSPVPAGE DS 
RSPRPAGE DS 
RSPMISC DS 
RSPSFBLK DS 



IF 
IF 
IF 
IF 
IF 
IF 



RSPDPAGE 
RSPRPAGE 
RSPSFBLK 



Field Description, Contents, Meaning 



Restart CAW - CCH address 

DASD location (DCHR) of current page buffer 

Virtual address of page buffer 

Real address of page buffer 

Use varies according to caller 

Pointer to SFBLOK for file 



RSPSIZE EQU (*-RSPLCTL)/8 Size in doublewords (X«03') 
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SAVEAREA 



SAVEAREA 

SAVEAREA is used to save the registers of a module when that module has called another 
module. 





I — 
8 I 

I — 

10 . 



SAVERETN 
SAVEB13 



SAVER12 
SAVENRK1 



SAVEREGS 



UO 
48 
50 
58 



SAVEHRK2 
SAVEHRK4 
SAVEHRK6 
SAVEHRK8 



SAVEWRK3 
SAVEHRK5 
SAVEHRK7 
SAVEWBK9 



Hexadecimal Field 
Displacement Name 




4 
8 
C 
10 



10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 
4C 
50 
54 
58 
5C 



SAVERETN DS 

ORG 
SAVENEXT DS 
SAVER12 DS 
SAVER13 DS 
SA?EHRK1 DS 
SAVEREGS DS 



SAVERO 

SAVER1 

SAVER2 

SAVER3 

SAVER4 

SAVER5 

SAVER6 

SAVER7 

SAVERS 

SAVER9 

SAVER 10 

SAVER11 

SAVENRK2 

SAVEHRK3 

SAVEHRK4 

SAVEHRK5 

SAVEWRK6 

SAVEWRK7 

SAVENRK8 

SAVEWRK9 



ORG 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 



IF 

SAVERETN 

IF 

IF 

IF 

IF 

12F 

SAVERFGS 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 

IF 



Field Description, Contents, Meaning 
Active SAVEAREA (caller's return address) 



Inactive SAVEAREA (next SAVEAREA address) 
Caller's base (R12) 
Caller's SAVEAREA (R13) 
Called routine's work area 
Caller's registers (RO to R11) 



Called routine's work area (8 fullwords) 



SAVESIZE EQU (*-SA VEAREA) /8 Size in doublewords (X'OC) 
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SAVTABLE 



SAVTABLE: FIRST PAGE ON SAVED SYSTEM DASD 



SAVTABLE is used in the initial program loading of saved virtual machine named systems. 
It is created by the name system generation process (SAVESYS macro/SAVESYS command) ,. 



I 



as 



68 



I 



SAVPSW 



SAVGREGS 







SAVCREGS 



I- 



Hexadecimal Field 
Displacement Name 





8 

48 

68 

A8 



SAVPSW DS 

SAVGREGS DS 

SAVFPRES DS 

SAVCREGS DS 

SAVKEYS DS 



ID 

16F 

4D 

16F 

1H 



Field Description, Contents, Meaning 

PSW of virtual machine at SAVSYS table 

General registers 

Floating-point registers 

Control registers 

2— byte entry for each saved page 

containing storage keys for each page 



86 IBM VM/370: Data Areas and Control Block Logic 



SDRBLOK 



SDRBLOK: STATISTICAL DATA BECORDING |LOCK 



Contains counters to record temporary errors on a given I/O device, 





8 

10 

18 



SDRRDEV 
S*5 I SDRCUA 



I S*1 I S*2 I S*3 I S*4 



SDRCTRS 



SDRCTRS1 



Hexadecimal Field 
Displacement Name 



SDRRDEV DS 


IF 


SDRFLAGS DS 


IX 


Bits defined 


in SDRFLAGS 


SDRSHBT EQU 


X'80' 


SDRFLCT EQO 


X«40> 


EQU 


X'20' 


EQU 


X'10« 


EQU 


X»08' 


EQU 


X»04' 


EQU 


X"02» 


EQU 


X'01« 


SDRPRMCT DS 


IX 


SDRRSV1 DS 


1H 


SDRLNGTH DS 


IX 


SDRCUA DS 


3X 


SDRCNTS DS 


5F 



Field Description, Contents, Meaning 

Address of associated RDEVBLOK 
S*1 SDRBLOK flags 



Short OBR to be written 
Full byte counter 



S*1 Parameter list counter 

Reserved for IBM use 
S*3 Length, in bytes, of SDR counters 

SDR error counters 
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SEGTABLE 



SEGTABIE: SEGMENT TABLE 



SEGTABLE is used in conjunction with the page table (PAGTABLE) and swap table (SWPTABLE) 
by the page management routines. 



I SEGPAGE 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



SEGPAGE DS IF Pointer to page table 

Page Table Lenath 

OBG SEGPAGE 
SEGPLEN DS IX Page table length (Total pages - 1) 

(in left half of byte) 
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SFBLOK 

SFBLOK: SPOOL FILE BLOCK 

SFBLOK retains all the information relating to a spool file. A pointer provides a linkage 
to the next SFBLOK in the chain. 



I SFBPNT I SFBSTART 

8 I SFBUSEE 

10 I SFBORIG 

18 I SFBRECWO | SFBRECSZ | SFBFILID 

20 I S*1 I S*2 I SFBMISC1 | SFBRECS 

28 I SFBFNAME 



34 
40 
48 
50 
58 



SFBTYPE 



SFBDATE 



SFBTIME 



SFBLAST 



I SFBCOPY 
SFBDIST 



I S*3 I S*4 



Hexadecimal Field 
Displacement Name 




4 
8 
10 
18 
1C 
IE 
20 



21 
22 
24 
28 



SFBPMT 


DS 


IF 


SFBSTART 


DS 


IF 


SFBUSER 


DS 


CL8 


SFBORIG 


DS 


CL8 


SFBRECNO 


DS 


IF 


SFBRECSZ 


DS 


1H 


SFBFILID 


DS 


1H 


SFBFLAG 


DS 


IX 


Bits def. 


Lned 


in SFBFLAG 


SFBINUSE 


EQU 


X'80' 


SFBRECOK 


EQU 


X'40' 


SFBUHOLD 


EQU 


X'20' 


SFBDDHP 


EQU 


X'10' 


SFBOPEN 


EQU 


X'08' 


SFBSHOLD 


EQU 


X'04» 


SFBEOF 


EQU 


X'02' 


SFBRECER 


EQU 


X'01« 


SFBTYPE 


DS 


IX 


SFBHISC1 


DS 


1H 


SFBRECS 


DS 


IF 


SFBFNAME 


DS 


CL12 



Field Description, Contents, Meaning 

Pointer to next SFBLOK 

DASD location (DCHR) of last page buffer 
VMUSER identification of file owner 
VMUSER identification of file origin 
Number of data records in file 
Logical record size - excluding CCWs 
Binary system file number 
S*1 SFBLOK control bits 



File being processed 
Allocation records complete 
File in user hold status 
File is a CP system dump 
Input file has been opened 
File in system hold status 
Input file has reached EOF 
SFBREC chain incomplete 

S*2 Device type for output 

Use varies according to caller 
Pointer to RECBLOKS for active file 
Filename 
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SFBLOK 



Hexadecimal Field 
Displacement Name 



34 
UO 
48 
50 
54 
56 
57 



SFBFTYPE 


DS 


CL12 


SFBDATE 


DS 


CL8 


SFBTIME 


DS 


CL8 


SFBLAST 


DS 


IF 


SFBCOPY 


DS 


1H 


SFBCLAS 


DS 


1C 


SFBFLAG2 


DS 


IX 



Mis defined in SFBILIGg 
SFBHOLD EQU X'80' 
SFBBOHLD EQU X«40' 



Field Description, Contents, Meaning 



Filetype 

Creation date of spool file 

Creation time of spool file 

DASD location (DCHR) of last page buffer 

Number of copies requested 
S*3 Spool output class 
S*4 SFBLOK flag byte 2 



Save input file, or hold output file 

Delete input file, or do not hold ouput file 



58 



Note: SFBHOLD and SFBNOHLD override options in VDEVBLOK. 

Re-queue spool file 
Restart in progress 
Buffer TIC error 
Purge open spool file 
Indicate first page written 

Distribution code 

iK)/8 Size in doublewords (X'OC) 



SFBBEQUE 


EQU 


X'20' 


SFBRSTRT 


EQU 


X' 10" 


SFBTICER 


EQU 


X'08' 


SFBPURGE 


EQU 


X'04' 


SFBFIRST 


EQU 


X'02' 


SFBDIST 


DS 


CL8 


SFBSIZE 


EQU 


(♦-SF 
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SHQBLOK 



SHfiBLOK: SPOOL HOLD QUEHl IIjOCK 



SHQBLOK provides a holding function for identified spool files to prevent output to 
another user or to a real output device. 




I S*1 I S*2 I SHQSPARE 
SHQUSER 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



SHQPNT DS IF 

SHQFLAGS DS 0CL4 

SHQUHOLD DS IX 

SHQSHOLD DS IX 



Address of next SHQBLOK 

Length 
S*1 User USER HOLD flag byte 
S*2 User SYSTEM HOLD flag byte 



Bits defined in SH^JUHOLD and SHQSHOLD 

TYPPRT Used for printer type 

TYPPUN Used for punch type (see Appendix A 

for DEVTYPES for both TYPPRT and TYPPUN) 



SHQSPARE DS 
SHQUSER DS 



2X 
CL8 



Reserved for IBM use 

VMUSER identification of file owner 



SHQBSIZE EQU (*-SHQBLOK) /8 Size in doublewords (X'02') 
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SHRTIBLE 



SHRTABLE: NAMED-SHARED SEGMENT SYSTEMS TABLE 



SHRTABLE contains pointers to the segment locations of named systems for both the shared 
and nonshared user. This block is used in paging, IPL, and VMA operations. 





8 

10 

18 



SHRFPNT I SHRBPNT 

SHRNAHE 

SHRTSIZE I SHRUSECT | SHRSEGCT 

SHRSEGNH | SHRPAGE 



Hexadecimal Field 
Displacement Name 






SHRFPNT 


DS 


IF 


4 


SHRBPNT 


DS 


IF 


8 


SHRNAHE 


DS 


CL8 


10 


SHRTSIZE 


DS 


1H 


12 


SHRUSECT 


DS 


1H 


lU 


SHRSEGCT 


DS 


IF 


18 


SHRSEGNH 


DS 


IF 



1C 



SHRPAGE DS 



IF 



Field Description, Contents, Meaning 

Pointer to next SHRTABLE 

Pointer to previous SHRTABLE 

Name of saved system 

Size of SHRTABLE in doublewords 

Number of users using to this segment name 

Number of shared segments 

Contains shared segment numbers; up to four 

segment numbers per word. 
Pointers to each of the shared SEGTABLEs. There 

is one word for each shared segment. The 

entry is the same as S*1 SEGPAGE in 

"SEGTABLE: Segment Table." 
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SPLINK 



SPLINK: SPOOL PAGE BUFFEB LINKAGE BLOCK 



SPLINK resides in auxiliary storage and contains one page 
spool infornation consisting of data and all required CCHs. 



(4096 bytes) of unit record 





8 

10 



SPNXTPAG 
SPRMISC 



SPPHEPAG 
SPRECNUM 



SPOOL BUFFER DATA AREA 
(4080 bytes) 



Hexadecimal Field 
Gisplacement Name 






SPNXTPAG 


DS 


IF 


4 


SPPREPAG 


DS 


IF 


8 


SPRMISC 


DS 


IF 


C 


SPRECNOM 


DS 


IF 




SPSIZE 


EQU 


(♦-SPLINK) 



Field Description, Contents, Meaning 



DASD location (DCHR) of next page buffer 
DASD location (DCHR) of previous page buffer 
Use varies according to caller 
Number of data records in buffer 

Size in bytes (X« 10* ) 
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SWPTABLE 



SWPTABLE: SWAP TABLE FOR VIRTUAL MACHINE PAGING 



SHPTABLE is used in conjunction with the page table (PAGTABLE) and the segment table 
(SEGTABLE) by the CP page management routines for relating the virtual storage to DASD 
slots and real storage. 



I SWPVM I SHPPAG 

8 I S*1 I S*2 I S*3 I S*4 I SWPCYL 



I S*5 



S*6 I 

I 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 






SHPVM 


DS 


IF 




4 


SWPPAG 


DS 


IF 




8 


SWPFLAG 


DS 


IX 


S*l 




Bits defined 


in SWPFLAG 






SHPTRANS 


EQU 


X'80' 






SWPRECMP 


EQU 


X'40' 






SWPALLOC 


EQU 


X'20' 






SWPSHR 


EQU 


X'10' 






SHPREF1 


EQU 


X'08' 






SWPCHG1 


EQU 


X'04' 






SHPREF2 


EQU 


X'02' 






SWPCHG2 


EQU 


X'OI* 




9 


SHPVPAGE 


DS 


IX 


S*2 


A 


SWPKEY1 


DS 


IX 


S*3 


B 


SHPKEy2 


DS 


IX 


S*4 


C 


SWPCYL 


DS 


1H 




E 


SMPDPAGE 


DS 


IX 


S*5 


F 


SWPCODE 


DS 


IX 


S*6 



Pointer to VMBLOK 
Pointer to PAGTABLE 
SWPTABLE flag bits 



Page in transit 

Page permanently assigned 

Page engueued for allocaticn 

Page shared 

First half page referenced 

First half page changed 

Second half page referenced 

Second half page changed 

Virtual page number 

Virtual storage key 

Virtual storage key 

DASD cylinder address 

Page number on cylinder 

RDEVBLOK device code 

(The device code is used as an index into 

the list of CP-owned paging volumes pointed to 

by DMKSYSOW) 



Note: For each SWPTABLE there is only one doubleword that consists of SWPVM and SWPPAG 
followed by 16 entries (one for each PAGTABLE entry) that consist of S*1, S*2, S*3, S*4, 
SWPCYL, S*5, and S*6. Thus, the total size of the SWPTABLE is 17 doublewords. 
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SYSLOCS 

SJfSLOCS: SYSTEM LOW STORAGE INFORMATION BLOCK 

SYSLOCS contains user logon and dial statistics, time/date and log message data, TOD 
values, and line edit values. 






r~" 




DMKSYSDT 


- ' -' •' ■■- - ' 1 


8 






DMKSYSTM 




10 






DMKSYSLW 




18 








DMKSYSLG | 


20 


1 1 1 1 

i 1 J 


DMKSYSNM 




DHKSYSMA | 


28 


DMKSYSMU 
DMKSYSLB 
DMKSYSPL 




DMKSYSND | 


30 




DMKSYSUD 1 


38 






40 
U8 


DMKSYSDH 

r 

1 S*1 


1 S*2 1 S*3 1 S*4 1 


50 


1 S*5 
1 

1 


1 




I//////////////I 


58 




DMKSYSCK 





Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 






DMKSYSDT 


DC 


CL8'MM/DD/YY 


8 


DMKSYSTM 


DC 


CL8»HH;MM:SS 


10 


DMKSYSLW 


DC 


X«00' ,X«00', 


1C 


DMKSYSLG 


DC 


A(0) 


20 


DMKSYSNM 


DC 


F»0' 


24 


DMKSYSMA 


DC 


F'0» 


28 


DMKSYSMU 


DC 


F'O' 


2C 


DMKSYSND 


DC 


F'O" 


30 


DMKSYSLB 


DC 


A(0) 


34 


DMKSYSUD 


DC 


A(0) 


38 


DMKSYSPL 


DC 


A(0) 


3C 




DC 


A(0) 


40 


DMKSYSDW 


DC 


X'OO' ,X'00« , 


4C 


DMKSYSLB 


DC 


X'7B' S*1 


4D 


DMKSYSLD 


DC 


X'4A' S*2 


4E 


DMKSYSCD 


DC 


X'7C' S*3 


4F 


DMKSYSES 


DC 


X'7F' S*4 


50 


DMKSYSLL 


DC 


AL1 (130,129, 
S*5 


53 




DC 


XL5'0' 


58 


DMKSYSCK 


DC 


D'O' 



• Date of system log message 

' Time of system log message 

CLIO' • 

Weekday of system log messages 
Pointer to first log message block 
Current number of users on the system 
Maximum number of users allowed on the system 
Maximum number of users on the system 
Number of dialed users on the system 
Pointer to user directory lock block 
Pointer to start of user directory on SYSRES 
Pointer to a list of virtual page buffers 
Reserved for IBM use 
CLIO* 

Day of week in hexadecimal and EBCDIC 
# default line-end (pound-sign) 
i- default line— delete (cent-sign) 
a default character-delete (at-sign) 
" default edit escape (guotation mark) 

72) 

Default line lengths for 3210 and 3215 - 

2741 and 1050 - TTY terminals 
Reserved for IBM use 

Time-of-day clock value last stored by 
accounting, DUMP or machine check 
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SYSTBL 



SYSTBL: NAMED SYSTEM TABLE 



SYSTBL contains the system and DASD information required to load a saved system by name. 




8 
10 
18 
20 
28 



SYSPNT I SYSSIZE 

SYSNAME 
VSYSRES 
SYSVOL 
SYSSTART 
SYSPAGLN i Unused | 

SYSPAGNM (variable) 



I SYSVADDR 
I SYSCYL 
SYSPAGCT 



SYSSEGLN I 



SYSHRSEG 
(variable) 



Hexadecimal Field 
Displacement Name 






SYSPNT 


DS 


IF 


4 


SYSSIZE 


DS 


IF 


8 


SYSNANE 


DS 


CL8 


10 


VSYSRES 


DS 


CL6 


16 


SYSVADDR 


DS 


1H 


18 


SYSVOL 


DS 


CL6 


IE 


SYSCYL 


DS 


1H 


20 


SYSSTART 


DS 


IF 


2U 


SYSPAGCT 


DS 


IF 


28 


SYSPAGLN 


DS 


1H 


2C 


SYSPAGNM 


DS 


IF 


30 


SYSSEGLN 


DS 


1H 


32 


SYSHRSEG 


DS 


IX 



Field Description, Contents, Meaning 

Chain pointer to next entry 

Minimum storage size needed to run system 

System name 

Volume serial of DASD containing user's 

system 
Virtual address of VSYSRES 

Volume serial of DASD containing saved pages 
Cylinder on VSYSRES of user's system. Same 

as VDEVRELN 
CCPD of first page on SYSVOL 
Total number of pages saved 
Number of entries in SYSPAGNM 
One fullword entry for each range of pages 

to be saved 
Numbers of entries in SYSHRSEG 
One byte for each segment to be shared 
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TNSREC 



THSR^Cs i_Ti TYPE RECOBD FOBMAT (INVIRONMlOil! RECORDING) 

TMSREC is used by DMKIOE to record miscellaneous data records on CP's I/O error recording 
cylinders. The record contains sense data applicable to a specific I/O device. 





8 

10 

18 

BO 



TNSKEYN I T*1 | T*2 | T*3 | T*H | TNSSPEI 
TNSDTEN I TNSTMEN 



TNSCPIDN 



TNSDEVAD | 



TNSVOLID 



SENSE DATA 



I 



Hexadecimal Field 
Displacement Name 



2q-Byte Header Record 






TMSKEYN 


DS 


1H 




2 


TNSSHSl 


DS 


1C 


T*1 


3 


TMSSHS2 


DS 


1C 


T*2 


4 


TNSSWS3 


DS 


1C 


T*3 


5 


TNSRECNT 


DS 


1C 


T*4 


6 


TNSSPEI 


DS 


1H 




8 


TNSDTEN 


DS 


IF 




C 


TNSTNEN 


DS 


IF 




10 


TNSCPIDN 


DS 


2F 






5§2ice Degen 


dent Data 




18 


TNSDEVAD 


DS 


1H 




1A 


TNSVOLID 


DS 


6C 




20 


TNSSNS1 


DS 


2HX 




38 


TNSSNS2 


DS 


2^X 




50 


TNSSNS3 


DS 


24X 




68 


THSSNS4 


DS 


2HX 




80 


TNSSNS5 


DS 


2HX 




98 


TMSSNS6 


DS 


2ax 




BO 


TNSSNS7 


DS 


2UX 





Field Description, Contents, Meaning 



Class source 90=T type N/S NON TPER 

Switch byte 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Date 

Time 

CPU ID and serial 



Device address request is pending 

Volume serial 

24 Sense bytes 

24 Additional sense bytes 

24 Additional sense bytes 

24 Additional sense bytes 

24 Additional sense bytes 

24 Additional sense bytes 

Last 24 sense bytes 
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TREXT 



TREXT: VIRTUAL MACHINE TRACING EXTENSION TO VMBLOK 



TREXT facilitates the tracing of virtual machine program instructions and interrupts, 
This block is used whenever the CP TRACE command is invoked. 




8 
10 
18 
20 
28 



TREXIN1 


1 TREXIN2 




TREXSVC1 1 TREXSVC2 


1 T*1 1 T*2 1 


TREXLOCK 


TREXPERA 


1 TREXPERC 1 


TREXLCNT 


TREXANSI 


1 TREXPER 1 


TREXPREG 


TREXCR10 


1 TREXCR11 



TREXBUFF 



Hexadecimal Field 
Eisplacement Name 



TREXIN1 


DS 


IF 


TREXIN2 


DS 


IF 


TREXSVC1 


DS 


1H 


TREXSVC2 


DS 


1H 




ORG 


TREXIN1 


TREXPSW 


DS 


ID 


TREXINTL 


DS 


1H 


TREXIHTC 


DS 


1H 


TBEXFLAG 


DS 


IX 


Bits def 


ined 


in TREXFLAG 


TREXRUN 


EQU 


X«80' 


TREXVAT 


EQU 


X'40» 



TREXOUT DS 



IX 



Field Description, Contents, Meaning 

First address - replaced instruction 
Second address - replaced instruction 
Displaced halfword - instruction 1 
Displaced halfword — instruction 2 



Old PSW for pending SVC interrupt 
Instruction length code 
Interrupt code for pending interrupt 
T*1 Tracing control flags 



Prevent CFWAIT between events 

Call DMKVATRN to put back virtual instruction 

T*2 Trace output controls 



E 
10 
14 
16 
18 

1C 
1C 
IE 
20 



Bits defined 


in TREXOUT 


TREXPRT 


EQU 


X«80' 


TREXCON 


EQU 


X»40« 


TREXLOCK 


DS 


1H 


TREXPERA 


DS 


IF 


TREXPERC 


DS 


1H 


TREXLCNT 


DS 


1H 


TREXANSI 


DS 


1A 


THEXCR9 


DS 


OF 


TREXPER 


DS 


XL2 


TREXPREG 


DS 


1H 


TREXCR10 


DS 


IF 



Output to the virtual printer 
Output to user terminal 

Indicates tracing when set 

PER event address on interrupt 

PER code bits from hardware event 

Printed output line count 

Address of next (or last) seguential 

instruction 
Shadow control registers for PER trace 
PER control field 
PER register mask field 
Address range starting value 
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TREXT 



Hexadecimal Field 
Displacement Name 



24 


TREXCR11 DS 


IF 


28 


TREXBUFF DS 


10D 




TREXSIZE EQU 


(♦-TREXT) /8 




ORG 


TREXPERA 


10 


TREXNSI DS 


6X 




ORG 


TREXCR9 


1C 


TREXCTL DS 


OH 




TREXCTL1 DS 


IX 


ID 


TREXCTL 2 DS 


IX 




lii§ defined 


in TREXCTL2 



TREXCCH EQU X'SO* 

TREXCSH EQU X'40' 

TREXBRAN EQU X«20' 

TREXINST EQU X' 10' 



IE 


TREXPRNT 


DS 


1H 


20 


TREXTERM 


DS 


1H 


22 


TREXRUSIF 


DS 


1H 


24 


TREXPNTR 


DS 


IF 



Field Description, Contents, Meaning 

Address range ending value 
Console/printer output buffer (80 bytes) 

TREXT size in doublewords (X'OF») 

Redefinition for TRACE use 

Actual next (or last) sequential instruction 

Redefinition for TRACE use 
Half word holding tracing control bits: 
First byte = same as VMTRCTL in VMBLOK 
Second byte = remaining control bits 



Trace virtual and real CCHs 
Trace virtual and real CSHs 
Trace successful branches 
Trace all instructions 

Printer flag bits corresponding to TREXCTL 
Terminal flag bits corresponding to 

TREXCTL 
Run/norun flagbits corresponding to 

TREXCTL 
Pointer to first stacked TRACE request, if 

any 
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TRQBLOK 



SSQBI-OKs TIMER REQUEST BLOCK 



TRQBLOK manages the timing facilities of VM/370, 




8 


1 — ^.^~. 


TRQBFPBT 


TRQBVAL 
1 


TRQBBPNT 


10 


TRQBTOD 

1 
TRQBQUE 




18 


TRQBUSER 


TRQBIRA 


20 


L 







Hexadecimal Field 
Displacement Name 




8 
C 
10 
18 
1C 
20 



TRQBVAL DS 

TRQBFPNT DS 

TRQBBPNT DS 

TRQBTOD DS 

TRQBUSER DS 

TRQBIRA DS 

TRQBQUE DS 



ID 
IF 
IF 
ID 
IF 
IF 
ID 



Field Description, Contents, Meaning 

TOD clock comparator value for interrupt 
Pointer to next TRQBLOK 
Pointer to previous TRQBLOK 
TOD clock value when TRQBLOK is queued 
Address of VMBLOK for user 
Interrupt return address 
Time left in queue; tracking virtual 
CPU timer 



TRQBSIZE EQU (*-TRQBLOK) /8 Size in doublewords 
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UDBFBLOK 

ODBFBI.OK: USER PIHECTORY BUFFER BLOCK 

UDBFBLOK is used as a buffer for user device block data in user directory access 
operations. 



UDBFHORK 



30 



UDBFVADD 



UDBFDASD | 



Hexadecimal Field 
Displacement Name 




30 
34 



UDBFNORK DS 
UDBFVIiDD DS 
UDBFDASD DS 



6D 
IF 
IF 



Field Description, Contents, Meaning 

Buffer work space used by the caller 
Virtual address of the last directory page 
DASD address of the last directory page 



UDBFSIZE EQU (*-UDEFBLOK) /8 UDBFBLOK size in doublewords (X»07') 
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UDEVBLOK 



UDEVBLCK: USEE DEVICE BLOCK 



UDEVBLOK supplies the information about the virtual machine's virtual devices, the 
operational parameters for its use, such as DASD access passwords, read/write link mode, 
spool device, T-disk space versus dedicated device space, as well as other parameters. 




8 
10 
18 
20 
28 



UDEVADD I UDEVDISP | UDEVDASD 

U*1 I U*2 I U*3 I U*4 I U*5 I U*6 | UDEVNCYL 

UDEVRELN | UDEVVSER 

UDEVPASR 

UDEVPASW 

UDEVPASM 



Hexadecimal Field 
Displacement Name 



A 

B 

C 

D 

E 

10 

12 

18 

20 



UDEVADD DS 
UDEVDISP DS 
UDEVDASD DS 
UDEVSTAT DS 



1H 
1H 
IF 
IX 



Field Description, Contents, Meaning 

Virtual device address 
Displacement of the next UDEVBLOK 
DASD address of the next UDEVBLOK 
U*1 Status information 



Mis defined in UDEVSTAT 

UDEVDED EQU X«80'~ 

UDEVTDSK EQU X'40' 

UDEVLOHG EQU X'20' 

UDEVLKDV EQU X'lO* 

UDEVSPOO EQU X'08' 

UDEV3158 EQU X«04« 



UDEVHODE DS 



IX 



Device to be dedicated to this user 

T-disk to be allocated 

Device block is full length (6 doublewords) 

Device is to be linked (at logon time) 

Device is a spool device 

Device is a 3158 console 

U*2 Access mode information 



Bits defined in UDEVMODE 

UDEVLR EQU X'80' 

UDEVLH EQU X'40' 

UDEVLM EQU X'20' 

UDEVR EQU 

UDEVRR EQU 4 

UDEVH EQU 8 

UDEVWR EQU 12 

UDEVM EQU 16 

UDEVMR EQU 20 

UDEVKW EQU 24 



UDEVTYPC DS 
UDEVTYPE DS 
UDEVFTR DS 
UDEVBDL DS 
UDEVNCYL DS 
UDEVRELN DS 
UDEVVSER DS 
UDEVPASR DS 
UDEVPASW DS 



1C 
1C 
1C 
1C 
1H 
IB 
6C 
ID 
ID 



Read links allowed 
Write links allowed 
Multiple write links allowed 
Device to be in R link mode for owner 
Device to be in RR link mode for owner 
Device to be in W link mode for owner 
Device to be in WR link mode for owner 
Device to be in M link mode for owner 
Device to be in MR link mode for owner 
Device to be in MW link mode for owner 

U*3 Device class 

U*4 Device type 

U*5 Device feature mode 

U*6 Device model number 

Virtual DASD size 

Virtual DASD cylinder relocation 

Volume serial number 

Password for read access 

Password for write access 
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UDBVBLOK 



Hexadecimal Field 

Displacement Name Field Description, Contents, Heaning 



28 UDEVPASM DS ID Password for multiple access 

UDEVSIZE EQU (♦-UDEVBLOK) /8 UDEVBLOK size in doublewords 

User device block (short) 
C*6 Unit spool output class 
User link to disk 
User link to userid 







ORG 


UDEVMDL 


D 


UDEVCLAS 


DS 


1C 


E 


UDEVLIHK 


DS 


1H 


10 


UDEVLKID 


DS 


ID 
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UDIRBLOK 



UDIRBLOK: USEB DIHECTOBY BLOCK 



UDIRBLOK contains data describing the user's command privilege classes, special virtual 
machine options, terminal line edit values, and other values. 



I UDIRHSV1 I UDIRDISP | UDIRDASD 
8 I UDIRUSER 

10 I UDIRPASS 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



UDIRRSV1 DS 1H Reserved for IBM use 

2 UDIRDISP DS 1H Displacement of the user's UMACBLOK 

H UDIRDASD DS IF DASD address of the user's UMACBLOK 

8 UDIRUSER DS ID Userid 

10 UDIRPASS DS ID User password 

UDIRSIZE EQU (*-UDIRBLOK) /8 UDIRBLOK size in doublewords (X'03') 
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UHACBLOK 

OHACBLOK: USER MACHINE BLOCK 

UHACBLOK contains the logon parameters for one virtual machine user. This block provides, 
in addition to the linkage to the user's defined virtual machine device UDEVBLOK, the 
command privilege class, assigned line edit values, as well as other virtual machine 
options. 






r — 


UMACDVCT 1 


DMACDISP 1 


UNACDASD 


1 


8 




U*1 


1 0*2 1 


U*3 1 U*4 1 


0*5 1 U*6 1 0*7 1 0*8 




10 


1 — 


UMJ 


^CCOBE 


1 


DMACMCOB 




18 




DMACACCT 






20 








UMACDIST 






28 








UMACIPL 










Hexadecimal 
Eisplacement 


2 
4 
8 



Field 
Name 

UMACDVCT DS 
UMACDISP DS 
UMACDASD DS 
UMACCLEV DS 



1H 
1H 
IF 
1C 



U*1 



Field Description, Contents, Meaning 

Number of devices 

Displacement of the user's first UDEVBLOK 
DASD address of the user's first UDEVBLOK 
Command level 



Bits defined in UMACCLEV 





UMACCLA 


EQU 


X'80' 


~ 


Class A functions 




UMACCLB 


EQU 


X'40' 




Class B functions 




UMACCLC 


EQU 


X'20' 




Class C functions 




UMACCLD 


EQU 


X'10' 




Class D functions 




UMACCLE 


EQU 


X'08' 




Class E functions 




UBACCLF 


EQU 


X'04' 




Class F functions 




UMACCLG 


EQU 


X'02' 




Class G functions 




UHACCLH 


EQU 


X'01' 




Class H functions 


9 


UMACPRIR 


DS 


IX 


U*2 


Priority 


A 


UMACOPT 


DS 


IX 


U*3 


Virtual machine options 




Bits def. 


ined 


in UMACOPT 







UMACISAM EQU X'80' 

UMACECOP EQU X'40' 

UMACRT EQU X'20» 

UBACVHOP EQU X'10» 

UMACACC EQU X»08' 

UMACRSV4 EQU X'04' 

UMACNSVC EQU X'02' 

UMACBMX EQU X'01' 



ISAM CCW checking option 

Extended control mode option 

Real timer option 

Virtual = Real storage option 

Accounting card option 

Reserved for IBM use 

SVCs not handled by virtual machine 

feature 
Virtual block multiplexer channel 



assist 
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UMACBLCK 

Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 

Reserved for IBM use 

Terminal line end symbol 

Terminal line delete symbol 

Terminal character delete symbol 

Edit escape symbol 

Virtual storage size in bytes 

Maximum virtual storage size in bytes 

Accounting information 

User machine distribution information 

Name of system to be IPLed at logon time 

UMACSIZE EQU (*-UMACBLOK) /8 UMACBLOK size in doublewords (X'06') 



B 


UMACRSV1 


DS 


1C 


U*4 


C 


UHACLEMD 


DS 


1C 


U*5 


D 


UMACLDEL 


DS 


1C 


U*6 


E 


UMACCDEL 


DS 


1C 


U*7 


F 


UMACES 


DS 


1C 


U*8 


10 


UBACCOBE 


DS 


IF 




14 


UMACMCOR 


DS 


IF 




18 


UMACACCT 


DS 


ID 




20 


UMACDIST 


DS 


ID 




28 


UBACIPL 


DS 


ID 
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VIRTUAL I/O CONTROL BLOCKS 



The base for locating the I/O block 
structure is the user's Virtual Machine 
Block (VMBLOK) . The VMBLOK contains a 
pointer to the start of three control block 
tables, and a table of 16 channel indexes. 
The control block tables contain one block 
for each of the virtual channels, control 
units, and devices that are defined for the 
user's virtual machine. The entries in the 
channel index table (VMCHTBL) contain the 
pointers to each channel defined for the 
user in the table of Virtual Channel Blocks 
(VCHBLCKs) . Each VCHBLOK contains a table 
of pointers that point to the Virtual 
Control Unit Blocks (VCUBLOKs) for the 
control units attached to that virtual 
channel. Each VCUBLOK contains pointers to 
the Virtual Device Blocks (VDEVBLOKs) 
attached to the control unit. 

Thus, if given the unit address of any 
component in the form ecu, the appropriate 
control blocks representing each component 
in the subchannel path to the given unit is 
located via the indexing scheme. 

VCHBLOK: There is one VCHBLOK for each 
virtual channel connected to the user's 
virtual CPU. Each VCHBLOK contains the 
channel address and flag indicating the 
channel type (selector, byte multiplexer or 
block multiplexer). The status of the 
channel and its attached units are 
represented by several status and mask 
bytes, as follows: 

1. A status byte (VCHSTAT) indicates 
whether the channel is busy or has a 
channel class interrupt pending. 

2. A half word unit address identifies the 
unit causing the channel— class 
interrupt (if it is present) . 



3. A halfword mask (VCHCUINT) contains a 
bit map of the attached control units 
that have interrupt status pending. 

Following these status flags and masks 
is the table of indexes pointing to 
the attached VCUBLOKs; index entries 
representing addresses at which no 
control unit is attached have a value 
of -1. 

VCUBLOK: There is one VCUBLOK for each 
control unit in the virtual configuration. 
These blocks are arranged in a table, and 
each contains, in addition to its base 
address, status flags similar to those in 
the VCHBLOK and a table of indexes to 
attached VDEVBLOKs. The status flags 
defined for the VCUBLOK differ from those 
for the VCHBLOK in that they can contain 
status for the control unit and also for a 
subchannel. 

For example, if the VCUBLOK representing 
a 2803 Tape Control Unit is attached to a 
virtual selector channel, both the VCHBLOK 
and the VCUBLOK are marked busy. However, 
if the VCUBLOK is attached to a virtual 
byte multiplexer channel and is for a 
control unit on a selector subchannel of 
the multiplexer, the busy status of the 
channel is reflected in the VCUBLOK only. 
Thus the virtual multiplexer appears 
nonbusy to operations on other, nonshared 
subchannels. 



VDEVBLOK: T 
conf iguratio 
defined by 
contains th 
address, dev 
for the last 
In addition, 
type specifi 
I/O translat 
interpret th 
the user. 



here is one VDEVBLOK in the 
n for each virtual device 

the user. Each VDEVBLOK 

e device portion of the unit 

ice status, and the virtual CSW 

interrupt taken by the device. 

the VDEVBLOK contains device 
c information that allows the 
ion and simulation routines to 
e channel programs presented by 
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fCHBLOK 



¥CHBLOK: VIRTUAL CHANNEL BLOCK 



VCHBLOK contains information providing linkage between the virtual machine and one of its 
virtual channels. Supplied in this block, in addition to channel status and type 
information, are the reflected interrupts from attached virtual control units. 




I VCHCUINT I VCHCEDEV | V* 1 | V*2 
VCHCUTBL 



Hexadecimal Field 
Displacement Name 






VCHADD 


DS 


1H 


2 


VCHCUINT 


DS 


1H 


i\ 


VCHCEDEV 


DS 


1H 


6 


VCHSTAT 


DS 


IX 



Bits defined in VCHSTAT 
VCHBUSY EQU " X'SO'^" 
VCHCEPND EQU X'40» 
VCHDED EQU X'01« 



VCHTYPE DS 



IX 



Bits defined in VCHTYPE 
VCHSEL "eQU ~X»80"i" 
VCHBMX EQU X'40' 



VCHCUTBL DS 
VCHSIZE EQU 



16H 
(♦-VCHBLOK) /8 



Field Description, Contents, Meaning 

Virtual channel address 
VCUBLCK with interrupt-bit map 
Virtual device address with channel class 
interrupt 
V* 1 Virtual channel status 



Virtual channel busy 

Virtual channel class interrupt pending 

Virtual channel dedicated 

V*2 Virtual channel type 



Virtual selector channel 
Virtual block multiplexer 

Control units attached - VMCUSTRT index 

VCHBLOK size in doublewords (X»05') 



108 IBM VH/370: Data Areas and Control Block Logic 



VCONCTL 



VCONCTL: VIBTOAL COJSOLE CONTROL BLOCK 

VCONCTL contains CCH and data buffer information for the communications of the virtual 
console. 



8 
10 
18 
20 



VCONCAW 



VCONBUF 



VCONCCW 



V*1 I V*2 I V*3 I V*a I VCONIDAP 

VCONRBUF I VCONRCNT | V*5 | V*6 
VCONHBUF I VCONWCNT | V*7 | V*8 



Bexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 

Virtual address of user CCW 

Pointer to data buffer 

Current user CCW 

Reserved for IBM use 

Data tuffer size in doublewords 

Reserved for IBM use 

Reserved for IBM use 

For IDA pointer to current IDAW 

Address of read data buffer 

Data count in read buffer 

Read buffer size in doublewords 

Reserved for IBM use 

Address of write data buffer 

Data count in write buffer 

Write buffer size in doublewords 

Reserved for IBM use 

VCONSIZE EQU (*-VCONCTL) /8 VCONCTL size in doublewords (X»05') 



CCW data address 
CCW flag bits 
Reserved for IBM use 
CCW byte count 






VCONCAW 


DS 


IF 




4 


VCONBUF 


DS 


IF 




8 


VCONCCW 


DS 


ID 




10 


VC0NRSV1 


DS 


IX 


V*1 


11 


VCONBFSZ 


DS 


IX 


V*2 


12 


vconr:5V2 


DS 


IX 


V*3 


13 


VC0NRSV3 


DS 


IX 


V*4 


14 


VCONIDAP 


DS 


IF 




18 


VC0NR)3UF 


DS 


IF 




1C 


VCONRCNT 


DS 


1H 




IE 


VCONRBSZ 


DS 


IX 


V*5 


IF 


VC0NRSV6 


DS 


IX 


V*6 


20 


VCONWBUF 


DS 


IF 




24 


VCONWCNT 


DS 


1H 




26 


VCONWBSZ 


DS 


IX 


V*7 


27 


VC0NRSV8 


DS 


IX 


V*8 







ORG 


VCONCCW 


8 


VCONADDR 


DS 


IF 


C 


VCONFLAG 


DS 


IX 


D 


VC0NRSV4 


DS 


IX 


E 


VCONCNT 


DS 


1H 






ORG 


VCONADDR 


8 


VCONCOMD 


DS 


IX 



CCW command code 
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VCUBLOK 



VCUBLOK: VIHTUAL CONTEOL UNIT BLOCK 



VCUBLOK contains status information relating to the virtual channel, the status and 
features of the virtual control unit. 



I VCUAED I VCUEVINT | VCUINTS | V* 1 | V*2 
8 I VCUDVTBL 



— I 



Hexadecimal Field 
Displacement Name 






VCUADD DS 


1H 


2 


VCUDVINT DS 


1H 


4 


VCUINTS DS 


1H 


6 


VCUSTAT DS 


IX 




Bits defined 


in VCUSTAT 




VCUCHBSY EQU 


X'80' 




VCUCEPND EQU 


X'40' 




VCUBUSY EQU 


X'20' 




VCUPEND EQU 


X' 10» 




VCUCUEPN EQU 


X'OB" 




VCUACTV EQU 


X'OU* 


7 


VCUTYPE DS 


IX 




Bits defined 


in VCUTYPE 



VCUSHRD EQU X'BO* 
VCUCTCA EQU X'40' 



Field Description, Contents, Meaning 

Virtual control unit address 
VDEVBLOK with interrupt-bit map 
Virtual control unit interrupt status 
V*1 Virtual control unit status 



Virtual subchannel busy 

Interrupt pending in subchannel 

Virtual control unit busy 

Virtual control unit interrupt pending 

Virtual control unit end pending 

Virtual control unit active 

V*2 Virtual control unit type 



Virtual control unit on shared subchannel 
Virtual control unit is a channel— to— 
channel adapter 



VCUDVTBL DS 16H 

VCUSIZE EQU (*-VCUBL0K)/8 



Devices attached - VMDVSTRT index 
VCUBLOK size in doublewords (X'05') 
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VDEVBLOK 



VDEVBLOK: VIRTUAL DEVICE BLOCK 



VDEVBLOK maintains status and interrupt conditions applicable to one virtual device, 




8 
10 
18 
20 
28 
30 



VDEVADD I VDEVINTS | V* 1 | V*2 | V*3 | V*4 
VDEVCSW 



VDEVRELN | VDEVBND | VDEVPOSN 
VDEVQUED I VDEVOPER 



VDEVLINK 



VDEVREAL 



VDEVIOCT 
VDEVIOER 



VDEVUSER 
VDEVIOB 



Hexadecimal Field 
Displacement Name 



VDEVADD 


DS 


1H 


VDEVINTS 


DS 


IH 


VDEVTYPC 


DS 


IX V*1 


VDEVTYPE 


DS 


IX V*2 


VDEVSTAT 


DS 


IX V*3 


Bits defined 


in VDEVSTAT 


VDEVCHBS 


EQU 


X«80« 


VDEVCHAN 


EQU 


X'40' 


VDEVBUSY 


EQU 


X'20» 


VDEVPEHD 


EQU 


XMO' 


VDEVCUE 


EQU 


X'08' 


VDEVMRDY 


EQU 


X»0U> 


VDEVCATT 


EQU 


X'02' 


VDEVDED 


EQU 


X'01' 



VDEVFLAG DS 



IX 



Field Description, Contents, Meaning 

Virtual device address 
Virtual device interrupt status 
Virtual device type class 
Virtual device type 
Virtual device status 



Virtual subchannel busy 

Virtual channel interrupt pending 

Virtual device busy 

Virtual device interrupt pending 

Virtual control unit end 

Virtual device not ready 

Virtual device attached by console function 

VDEVREAL is dedicated device RDEVBLOK 

V*4 Virtual device flags 



Bits defined in VDEVFLAG 



VDEVEDO 


EQU 


X'80' 


VDEVENAB 


EQU 


X»80' 


VDEVTDSK 


EQU 


X»40' 


VDEVDIAL 


EQU 


X'40' 


VDEVCSPL 


EQU 


X'40' 


VDEV231T 


EQU 


X'20' 


VDEV231B 


EQU 


XMO" 


VDEVCCW1 


EQU 


X'lO* 


VDEVSAS 


EQU 


X«08' 


VDEVPOST 


EQU 


X«0U« 



DASD - read-only 

Virtual 270X - line enabled 

DASD - T-disk space allocated by CP 

Virtual 270x — line connected 

Console - activity spooled 

DASD - 2311 simulated on top half of 2314 

DASD - 2311 simulated on bottom half of 2314 

Console and spooling - processing first CCW 

DASD - Executing standalone seek 

Present attention with a single interrupt 
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VDEVBLOK 



Hexadecimal 
Displacement 



8 

10 
12 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 



Field 
Name 



VDEVRSRL 


EQU 


X'02« 


VDEVUC 


ECU 


X'01* 


VDEVCSH 


DS 


ID 


VDEVBELN 


DS 


1H 


VDEVBND 


DS 


1H 


VDEVPOSN 


DS 


IF 


VDEVQUED 


DS 


IF 


VDEVOPER 


DS 


IF 


VDEVLINK 


DS 


IF 


VDEVREAL 


DS 


IF 


VDEVIOCT 


DS 


IF 


VDEVUSER 


DS 


IF 


VDEVIOER 


DS 


IF 


VDEVIOB 


DS 


IF 



Field Description, Contents, Meaning 

Reserve/release are valid CCH operation codes 
Virtual device sense bytes present 

Virtual channel status word 

Virtual DASD cylinder relocation 

Virtual DASD size (In cylinders) 

Virtual DASD seek position 

Virtual SIO to real SIO queued time 

Device operational time 

Link to virtual shared devices 

Pointer to real device RDEVBLOK 

Virtual device I/O count 

Pointer to VMBLOK of VDEVBLOK owner 

Pointer to lOERBLOK for last error 

Pointer to active lOBLOK 

VDEVSIZE EQU (♦-VDEVBLOK) /8 VDEVBLOK size In doublewords (X'07») 

E2E Sfiooling^Console Devices 



Pointer to VSPXBLOK 

Reserved for IBM use 

Pointer to VCONCTL console control 

Pointer to VSPLCTL spool control 

Spool output class 

Storage key in user's CAi 

Spool output directed device address 

Number of copies requested 

Console - virtual console flags 



User pressed Attention key more than once 

Last CCW processed was a TIC 

Data transfer occurred during this channel 

program 
Virtual console function in progress 
Auto carriage return on first read 







ORG 


VDEVRELN 


10 


VDEVEXTN 


DS 


IF 


14 


VDEVSPAR 


DS 


IF 


18 


VDEVCON 


DS 


IF 


1C 


VDEVSPL 


DS 


IF 


20 


VDEVCLAS 


DS 


1C 


21 


VDEVKEY 


DS 


IX 


22 


VDEVUNIT 


DS 


1H 


24 


VDEVCOPY 


DS 


1H 


26 


VDEVCFLG 


DS 


IX 




Ui%.§. defined 


in VDEVCFLG 



VDEVATTN EQU X«80' 
VDEVTIC EQU X»40' 
VDEVTRAN EQU X'20» 





VDEVVCF 


EQU 


X'10' 




VDEVAUCR 


EQU 


X'08» 


27 


VDEVSFLG 


DS 


IX 




Bits defined 


in VDEVSFLG 




VDEVFEED 


EQU 


X'80» 




VDEVXFER 


EQU 


X'80» 




VDEVCOHT 


EQU 


X'40' 




VDEVHOLD 


EQU 


X'20' 




VDEVFOR 


EQU 


X»10' 




VDEVEOF 


EQU 


X'08' 




VDEVTERM 


EQU 


X'08' 




VDEVCFCL 


EQU 


X'04' 




VDEVPURG 


EQU 


X'02» 




VDEVDIAG 


EQU 


X'02» 




VDEVSVC 


EQU 


X'OI* 






ORG 


VDEVIOER 


30 


VDEVSNSE 


DS 


IF 


34 


VDEVFCBK 


DS 


IF 






ORG 


VDEVLINK 


20 


VDEVTMAT 


DS 


IF 



Spool - virtual spool flags 



Spool reader - last command was a feed 

Spool output - transfered to VSPXXUSR 

Spool input - continuous reading 

Hold output - save input 

Spool output - for user and distribution 

Spool input - set unit exception at EOF 

Terminal output required for spooled console 

Device closed by console function 

Spool output - purge file at close 

Spool input - device opened by DIAGNOSE 

Spool device busy by CP 



Sense bytes for spool device 

Address of forms control block (VFCBBLOK) 



T— disk attached time (TOD clock word 0) 
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VFCBBLOK 



VFCBBLOK: VIRTDAL FORM CONTROL BUFFER BLfiCK 



VFCBBLOK is exclusively used for printer carriage control forms activity, 



I VFCBCNT 

I 

8 I VFCBSPAR 



10 



I V*1 I V*2 I 



VFCBHORK 



I V*3 I 
I 



VFCBLOAD 



Bexadecimal Field 
Displacement Name 



VFCBCNT DS 
VFCBFLAG DS 



IB 
IX 



V*1 



Bits defined in VCf CEFLAG 
VFCBEOF EQU "x"^80» 
VFCBCMD EQU X'40' 



VFCBCHL 


DS 


IX 


V*2 


VFCBWORK 


DS 


IF 




VFCBSPAR 


DS 


2X 




VCFBNDEX 


DS 


IX 


V*3 


VFCBLOAD 


DS 


CL181 





Field Description, Contents, Meaning 

Current pointer to carriage column 
Working flag byte 



End-of-forms passed once 
Forms control given 

Channel number or space count 

Work area 

Spare 

Index byte value 

Forms control buffer area 



VFCBSIZE EQU (*-VFCBBLOK) /8 Size in doublewords (XM8') 
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VMBLOK 



VMBLOK: VIRTUAL MACHINE CONTROL BLOCK 



VMBLOK is used as the primary control block for almost all activities related to a single 
virtual machine. This block contains the following information: the dispatch and priority 
level of the virtual machine, the virtual machine 'S- CPU registers, preferred virtual 
machine option values, other values significant to virtual machine operations. 



01 
I- 
81 
I- 
10| 

I- 
18| 

I- 
20| 

28IVMVTERM |VMTRMID 

30|VMCHCNT |VBCUCNT 

I 

38 1 VMCHTBL 



VMQFPNT 

VMPNT 

VMSEG 

VMCHSTRT 

VMDVSTRT 



VMQBPNT 

VMECEXT 

VMSIZE 

VMCUSTRT 

VMTERM 
V*1 |V*2 I V*3 |V*4 
VMDVCNT IVMIOACTV 



58 
60 
68 
70 
78 
80 
88 
90 
98 
AO 
A8 
BO 
FO 



V*5 |V*6|V*7 |V*8 |V*9 | V* 10 | V* 1 1 |V* 12 
V*13|V*U| V*15|V*16|VMSL0CK |VMLLOCK 
V*19| V*20| VHIOINT | VHTIMEB 



VMVTIME 

VMTMOUTQ 

VMTTIME 

VMTMIHQ 

VMTODINC 



VMINST 
VMTREXT 



|VMACTDEV|V*17|V*18 
I VBADSTOP 



VMPSH 



VMGPRS 
VMFPRS 



110 
118 
120 
128 
130 
138 
140 
148 
150 
158 
160 
168 
170 
178 
180 
188 
190 
198 
1A0 
1A8 
1B0 
1B8 





VMUSER 




VMACNT 




VMDIST 


1 VMPGREAD 


1 VMPGHRIT 


IVMWCNT IVMSEC 


;DSP 1 VMSTOR 


1 VMIOCNT 


1 VMPNCH 


1 VMLINS 


1 VMCRDS 




VMCOMND 


IVMPDRUM IVMPDISK |VMPAGES |VMPRGIL 


IVHDEDCH IVMQPRIOR |VMWSPROJ jVMSTEALS 


1 VMTIMEON 


1 VMTRQBLK 


1 VMACOUNT 


1 VMRDINQ 


1 VMPRGINQ 


1 VHEPRIOR 


1 VMSTKO 


1 VMMICRO 


1 VMPFUNC 


1 VMPXINT 


1 VMDELAY 


1 VMRPRIOR 


1 VMPGNT 


1 VMNDCNT IVMSHRSYS 


|V*21| VHRSVW4 


1 VMASSIST 


1 VHRSVW1 


1 VMRSVW2 


1 VMRSVH3 


1 VMRSVH5 


1 VMUSER1 


1 VMUSER2 


1 VMUSER1 


1 VMUSER4 
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VMBLOK 



Hexadecimal Field 
Displacement Name 






VMQFPNT 


DS 


IF 




4 


VMQBPNT 


DS 


IF 




8 


VMPNT 


DS 


IF 




C 


VMECEXT 


DS 


IF 




C 


VMVCEO 


EQU 


VMECEXT 




10 


VMSEG 


DS 


IF 




14 


VMSIZE 


DS 


IF 




18 


VMCHSTET 


DS 


IF 




1C 


VMCUSTRT 


DS 


IF 




20 


VMDVSTET 


DS 


IF 




24 


VMTERM 


DS 


IF 




28 


VMVTERK 


DS 


1H 




2A 


VMTRMID 


DS 


1H 




2C 


VMTLEND 


DS 


1C 


V*1 


2D 


VMTLDEL 


DS 


1C 


V*2 


2E 


VMTCDEI 


DS 


1C 


V*3 


2F 


VMTESCP 


DS 


1C 


V*4 


30 


VMCHCNT 


DS 


1H 




32 


VMCUCNT 


DS 


1H 




34 


VBDVCHT 


DS 


1H 




36 


VMIOACTV 


DS 


1H 




38 


VMCHTBL 


DS 


16H 




58 


VMRSTAT 


DS 


IX 


V*5 




Bits defined 


in VMRSTAT 






VMCFWAIT 


EQU 


X«80'~ 






VMPGWAIT 


EQU 


X'40' 






VMIOWAIT 


EQU 


X«20« 






VMPSWAIT 


EQU 


XMO' 






VMEXWAIT 


EQU 


X'08' 






VMLOGON 


EQU 


X'04' 






VMLOGOFF 


EQU 


X'02' 






VMIDLE 


EQU 


X'OI* 





VMCPWAIT EQU 
VMNORUN EQU 
VMLGMGWT EQU 



Field Description, Contents, Meaning 

Pointer to next VMBLOK in queue 

Pointer to previous VMBLOK in queue 

Pointer (CYCLIC) to next VMBLOK 

VMBLOK extended control pointer - ECBLOK 

Virtual control register for non-EC mode 

machine 
Pointer to VMSEGTBL 
Virtual storage size in bytes 
Pointer to VCHBLOK table 
Pointer to VCUBLOK table 
Pointer to VDEVBLOK table 
Pointer to RDEVBLOK for user terminal 
Displacement to virtual console VDEVBLOK 
Resource ID of real terminal if 370X 
Terminal line end symbol 
Terminal line delete symbol 
Terminal character delete symbol 
Terminal escape symbol 
Virtual channel count 
Virtual control unit count 
Virtual device count 
Active channel mask 
Channels attached - VMCHSTRT index 

Virtual machine running status 



Waiting - Executing console function 
Waiting - Paging operation (s) 
Waiting - Scheduled lOBLOK start 
Waiting - Virtual PSW wait state 
Waiting - Instruction simulation 
User not logged on 
User logging off 
Virtual machine in idle wait state 

VMCFWAIT+VMPGW A IT+VMIOWAIT+VMEXWAIT+VMLOGOFF+ VMLOGON 

VMCPHAIT+ VMPSWAIT 

VMCFW AIT +VMLOGON+VMLOGOFF+VM IDLE 



59 



VMDSTAT DS 



IX 



Bits defined in VMDSTAT 



VMDSP 


EQU 


X'80« 


VMTSEND 


EQU 


X«40' 


VMQSEND 


EQU 


X'20' 


VMTIO 


EQU 


XMO' 


VMRUN 


EQU 


X«08« 


VMINQ 


EQU 


X'04' 


VMELIG 


EQU 


X'02' 


VMPAZAPL 


EQU 


X'01' 



V*6 Virtual machine dispatching status 



Virtual machine is dispatched runuser 

Virtual machine is compute bound 

Virtual machine in— queue time slice end 

Virtual machine is in TIO/SIO busy loop 

Virtual machine runnable 

Virtual machine in a queue 

Virtual machine is in an eligible list 

Reflect an external interrupt to a virtual machine 
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VMBLOK 



Hexadecimal 


Field 






Bisplacement 


Name 






5A 


VMOSTAT 


DS 


IX 




Bits def 


ined 


in VMOSTAT 




VMSYSOP 


EQU 


X'80'i' 




VMSHR 


EQU 


X'40' 




VMSLEEP 


EQU 


X»20« 




VMDISC 


EQU 


X'10" 




VMCFRUN 


EQU 


X'08' 




VMVIRCF 


EQU 


X'OU" 




VMCF 


EQU 


X'02' 




VMKILL 


EQU 


X'Ol' 


5B 


VHQSTAT 


DS 


IX 



5C 



Bits defined in VMOSTAT 

VMPRIDSP EQU X«80' 

VMAUTLOG EQU X'40' 

VMWSERNG EQU X'20' 



VMHSCHG 


EQU 


X'08" 


VMCFREAD 


EQU 


X'02' 


VMPA2APL 


EQU 


X'Ol' 


VMPSTAT 


DS 


IX 


Bits def; 


Lned 


in VMPSTAT 


viJlSAM 


"equ 


X'80' 


VMV370R 


EQU 


X'40' 


VMRPAGE 


EQU 


X'20' 


VHREAL 


EQU 


X'10' 


VMNOTRAN 


EQU 


X'08' 


VMPHMCS 


EQU 


x'oa' 


VMACCOUN 


EQU 


X'02' 


VMPAGEX 


EQU 


X'Ol' 



5D 



VMESTAT DS 



IX 



Field Description, Contents, Meaning 
V*7 Virtual machine operating status 



Virtual machine is system operator 
Virtual machine running shared system 
Virtual machine is in SLEEP state 
Virtual machine console disconnected 
Virtual machine running in CF mode 
Virtual machine executing virtual CF 
Virtual machine executing CF 
Virtual machine is to be logged off 

V*8 Virtual machine gueueing status 



Eligible for queue 1 

Autologged user is in disconnect mode 

Last working set error was negative; 

keep in queue 1 for terminal output 
Force a new working set on queue entry 
Virtual machine with console function read up 
Reflects external interrupts to machine 

V*9 Virtual machine processing status 



Virtual machine has ISAM CCW checking 

Virtual machine can use extended control 

Virtual machine can reserve pages 

Virtual machine has V=R option 

No CCW translation for V==R user 

Reserved for IBM use 

Virtual machine may punch account cards 

Virtual machine receiving pseudo page faults 

V*10 Virtual machine control status 



5E 



Bits defined 


in VMESTAT 


VMSHADT 


EQU 


X'80' 


VMPERCM 


EQU 


X'40' 


VMBADCRO 


EQU 


X'20' 


VMMICSVC 


EQU 


X'10' 


VMEXTCM 


EQU 


X'08' 


VBNEWCRO 


EQU 


X'04' 


VMINVSEG 


EQU 


X'02' 


VMINVPAG 


EQU 


X'Ol' 


VMECZAP 


EQU 


255-VMMICSVC 


VMTRCTL 


DS 


IX V*1 


Bits def; 
VMTRPER 


in^d 
'equ 


in VMTRCTL 
X'80' 


VMTRSVC 


EQU 


X'aO' 


VMTRPRG 


equ 


X'20' 


VMTRIG 


EQU 


X'10' 


VMTREX 


EQU 


X'08' 


VMTRPRV 


EQU 


X'OU' 


VMTRSIO 


EQU 


X'02' 


VMTRBRIH 


EQU 


X'Ol' 


VMTRINT 


EQU 


VMTRSVC+VMTR 



Shadow tables are present 

Virtual CP PER active 

Virtual control register is invalid 

User wants SVCs done by virtual machine 

assist feature 
Virtual machine in extended control mode 
Virtual control register has changed 
All shadow tables invalid 
Shadow page tables invalid 
All bits except VMMICSVC 

Virtual machine tracing control 



Virtual PER tracing active 
Trace user SVC instructions 
Trace virtual program interrupts 
Trace virtual I/O interrupts 
Trace external interrupts 
Trace user privileged instructions 
Trace virtual I/O instructions 
Trace successful branches or all 
instructions 



VMTRSVC+VMTRPRG+VMTRIO+VMTREX Trace all user interrupts 
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VMBLOK 



Hexadecimal 
Displacement 

5F 



60 



Field 
Name 

VNHLEVEL DS 



IX 



Field Description, Contents, Meaning 
V*12 Message level 



Bits defined in VMMLIVEL 



VMMSGON 


'equ 


X • 80"^ 


VHNNGON 


EQU 


X'40» 


VMMCODE 


EQO 


X«20' 


VMMTEXT 


EQU 


X«10» 


VBMLIMED 


EQU 


X'08» 


VMMACCON 


EQU 


X'OU' 


VBMCPEHV 


EQU 


X«02' 


VMMSTMP 


EQU 


X'OI* 



VBQLEVEL DS 



IX 



Receiving messages 

Receiving warnings 

Receiving error message codes 

Receiving texts of error messages 

Line editing on 

Receiving accounting information 

Terminal in CP mode 

Time stamp desired on console output 

V*13 Queue level 



Bits defined in VMj2LEVEL 



VMQ1 


EQU 


X'BO* 


VBCOMP 


EQU 


X«40« 


VMHIPRI 


EQU 


X»20' 


VBLOPRI 


EQO 


X'10« 


VMAEX 


EQU 


X'08« 


VBAEXP 


EQU 


X'04« 


VMDR0P1 


EQU 


X'02' 



Virtual 
Virtual 
Virtual 
Virtual 
Virtual 
Virtual 
Virtual 



machine 
machine 
machine 
machine 
machine 
machine 
machine 



is interactive 
is compute bound 
is highest priority 
is lowest priority 
is assured execution 
is assured percentage 
just dropped from Q1 



61 



VBCLEVEL DS 



IX 



V*14 Command level 



62 



Bits defined in VBCLEVEL 

VMCLASSA EQU x"^80' 

VBCLASSB EQU X«40' 

VMCLASSC EQU X«20' 

VBCLASSD EQU X' 10* 

VMCLASSE EQU X»08' 

VBCLASSF EQU X'Oa' 

VMCLASSG EQU X«02' 

VBCLASSH EQU X«01» 

VBTLEVEL DS 1X 



Class 
Class 
Class 
Class 
Calss 
Class 
Class 
Class 



A functions 
B functions 
C functions 
D functions 
E functions 
F functions 
G functions 
H functions 



V*15 Timer level 



Bits defined in VBTLEVEL 



63 



VBTOM 


EQU 


X»80' 


VBRON 


EQU 


X'40' 


VBCPUTBR 


EQU 


X'20' 


VMSTMPI 


EQU 


X»08' 


VBSTBPT 


EQU 


X»04' 


VBTMRINT 


EQU 


X'OI* 


Bits jedefined 


for Sys- 


VHTIDLE 


EQU 


VMTON 


VMTPAGE 


EQU 


VBRON 


VBTIOWT 


EQU 


VBSTBPI 


VBPEND 


DS 


IX 


Bits defined in VBPEND 


VBPERPHD 


EQU 


X«40» 


VBPRGPND 


EQU 


X>20' 


VBSVCPND 


EQU 


XMO' 


VBPGPBID 


EQU 


X'08' 


VBIOPND 


EQU 


X'02' 


VBEXTPND 


EQU 


X'OI* 



Virtual timer running 

Virtual real timer running 

Virtual CPU timer in real CPU timer 

Virtual interval timer request queued 

Virtual CPU timer request queued 

Interrupt from CPU real timer pending 



CPU timer contains idle wait state time 
CPU timer contains system page wait time 
CPU timer contains I/O wait state time 

V*16 Interrupt pending summary flag 



Virtual PER interrupt pending 
Virtual program interrupt deferred 
Virtual SVC interrupt deferred 
Virtual pseudo page fault pending 
Virtual I/O interrupt pending 
Virtual external interrupt pending 
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VMBLOK 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 

Short lock - reserved for IBM use 
Long lock - reserved for IBM use 

V*19 Virtual machine feature status 



VMFBMX EQU X'80' Virtual block multiplexer channels 

VHMLVL2 DS IX V*20 Additional message handling 

information 



64 


VMSLOCK 


DS 




1H 


66 


VMLLOCK 


DS 




1H 


68 


VMFSTAT 


DS 




IX 




Bits def 


ined 


in 


1 VMFSTAT 



5i£§ defined in VMMLVL2 
VKMIMSG EQU X'80« 



6A 
6C 
70 
78 
80 
88 
90 
98 

9C 

9E 

9F 

AO 

AU 

A8 

BO 

FO 

110 

118 

120 

128 

12C 

130 

132 

134 
138 
13C 

no 

144 
148 
150 
152 
154 
156 
158 
15A 
15C 
15E 
160 
164 
168 
16C 
170 
174 
178 
17C 



VMIOINT 


DS 


1H 


VMTIMER 


DS 


IF 


VMVTIME 


DS 


ID 


VMTMOUTQ 


DS 


ID 


VMTTIME 


DS 


ID 


VMTMINQ 


DS 


ID 


VMTODINQ 


DS 


ID 


VMINST 


DS 


IF 


VMACTDEV 


DS 


1H 


VBUPEIOB 


DS 


1H 


VMPSWDCT 


DS 


IX 


VMTEEXT 


DS 


IF 


VMADSTOP 


DS 


IF 


VMPSW 


DS 


ID 


VMGPRS 


DS 


16F 


VMFPBS 


DS 


4D 


VMUSER 


DS 


CL8 


VBACNT 


DS 


CL8 


VMDIST 


DS 


CL8 


VMPGREAD 


DS 


IF 


VMPGWRIT 


DS 


IF 


VMHCNT 


DS 


1H 


VMSEGDSP 


DS 


1H 


VMSTOR 


DS 


IF 


VMIOCNT 


DS 


IF 


VMPNCH 


DS 


IF 


VHLIMS 


DS 


IF 


VMCRDS 


DS 


IF 


VBCOHND 


DS 


CL8 


VMPDRUM 


DS 


1H 


VMPDISK 


DS 


1H 


VMPAGES 


DS 


1H 


VMPRGIL 


DS 


1H 


VMDEDCH 


DS 


1H 


VBQPRIOR 


DS 


1H 


VMWSPROJ 


DS 


1H 


VBSTEALS 


DS 


1H 


VMTIMEON 


DS 


IF 


VBTRQBLK 


DS 


IF 


VMACOUNT 


DS 


IF 


VBRDINQ 


DS 


IF 


VMPGRINQ 


DS 


IF 


VBEPRIOR 


DS 


IF 


VMSTKO 


DS 


IF 


VBMICRO 


DS 


IF 



Receiving all informational messages 

I/O interrupt pending flags 

Virtual timer value - X • 50 ' 

Virtual CPU time used 

Time remaining in gueue 

Total time while in supervisor state 

VMTTIME value at entry to gueue 

TOD clock time stamp at gueue entry 

Virtual machine privileged or tracing 
instruction 

Virtual device issuing last virtual SIO 
V*17 User priority from directory 
V*18 Invalid LIMK password count 

Address of extended trace control block 

Address of address stop control block 

Virtual machine PSW 

Virtual machine general registers 

Virtual machine floating pcint registers 

Virtual machine identification 

Virtual machine accounting number 

Virtual machine distribution code 

Total page reads 

Total page writes 

Page wait count 

Displacement of virtual machine SEGTABLE from 
start of block 

Permanent storage size (in bytes) 

Virtual SIO count for non-spooled I/O 

Virtual card count - spooled punch 

Virtual line count - spooled printer 

Virtual card count — spooled reader 

Last CP command executed 

Reserved for IBM use 

Reserved for IBM use 

Number of pages currently resident 

ILC for pending program interrupt 

Dedicated channel mask 

Priority in dispatching gueue 

Projected working set size 

Number of waits for stolen pages 

Logon time —TOD clock word 

Address of TRQBLOK for real timer 

Address of user ACCTBLOK 

Page read total (VMPGREAD) at gueue entry 

Sum of VMPAGES count at each page read 

Eligible list priority 

Console function output stack pointer 

Virtual machine assist — real control 
register 6 
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VMBLOK 



Hexadecimal 


Field 






Eisplacement 


Name 










ORG 


VMMICRO 


17C 


VMMCR6 


DS 


IX 




Bits def. 


ined 


in VMMCR6 




VMMFE 


~EQU 


X'80' 




VMMPROB 


EQU 


X'UO* 




VMMNOSK 


EQU 


X'20' 




VMM360 


EQU 


XMO' 




VMMSVC 


EQU 


X'08« 




VMMSHADT 


EQU 


X»04' 



Field Description, Contents, Meaning 



Control register 6 - hardware flag byte 



Virtual machine assist feature enabled 

Virtual machine in problem state 

Virtual machine assist does not handle SSK, 

ISK 
S/360 operations only, no EC mode operations 

allowed 
Virtual machine assist does not handle SVCs 
Shadow tables present (EC mode and translate) 



(Note: The last two bits in this byte must always be zeros.) 



17D 



VMMADDR DS 



180 


VMPFUNC 


DS 


IF 


184 


VMPXINT 


DS 


IF 


188 


VMDELAY 


DS 


IF 


18C 


VMRPRIOR 


DS 


IF 


190 


VHPGPNT 


DS 


IF 


194 


VMNDCNT 


DS 


IF 


196 


VMSHRSYS 


DS 


1H 


198 


VMRBSC 


DS 


IX 


199 


VMRSVW'4 


DS 


3X 


19C 


VMASSIST 


DS 


IF 


1A0 


VMRSVW1 


DS 


IF 


ua 


VMRSVW2 


DS 


IF 


1A8 


VBRSVW3 


DS 


IF 


1AC 


VMRSVW5 


DS 


IF 


1B0 


VMUSER1 


DS 


IF 


1B4 


vmuser:2 


DS 


IF 


1B8 


VMUSER3 


DS 


IF 


1BC 


VMUSER4 


DS 


IF 




VMBSIZE 


EQU 


( 



3X Control register 6 - address of virtual 

machine's pointer list (MICBLOK) 
PFnn function table 

Extended external interrupt stack pointer 
TRQBLOK for delayed SLEEP or LOGOFF 
Run list dispatching priority 
Pointer to list of PGBLOKs 
Non-deferred page read count 
Number of shared named systems 
V*21 Remote display line count 
Reserved for IBM use 
Pointer to list of VMABLOKs 
Reserved for IBM use 
Reserved for IBM use 
Reserved for IBM use 
Reserved for IBM use 
Reserved for installation use 
Reserved for installation use 
Reserved for installation use 
Reserved for installation use 

(♦-VMBLOK) /8 VMBLOK size in doublewords (X»32') 
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VHABLOK 

IMlIiOK- SHARED SYSTEMS RUNNING WITH VHABLOK 

¥MABLOK contains the name of a shared system, a pointer to the share table (SHRTABLE) , 
and a pointer to the next VMABLOK. 

I VMAFPNT I VMASHRBK I 

8 I VHANAHE I 

Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



VBAFPHT DS IF Forward pointer to next VMABLOK 

4 VMASHRBK DS IF Address of share table (SHRTABLE) 

8 VMAMAME DS CL8 Identification of named shared system 

VBASIZE EQU (*-VMABLOK) /8 VMABLOK size in doublewords 
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VSPLCTL 



VSPLCTL: VIRTUAL SPOOL CONTROL BLOCK 



?SPLCTL is linked to the VDEVBLOK and contains information for opened spool files 




8 
10 
18 
20 
28 



VSPCAH 


1 


VSPDPAGE 






VSPVPAGE 


1 


VSPRECNO 






VSPNEXT 1 


VSPIDACT 1 


VSPSFBLK 








VSPCCW 








7SPBUFBK 


1 


VSPMISC 







V*1 I VSPIDAL 



VSPIDAW2 



Hexadecimal Field 
Displacement Name 






VSPCAW 


DS 


IF 


4 


VSPDPAGE 


DS 


IF 


8 


VSPVPAGE 


DS 


IF 


C 


VSPRECNO 


DS 


IF 


10 


VSPNEXT 


DS 


1H 


12 


VSPIDACT 


DS 


1H 


U 


VSPSFBLK 


DS 


IF 


18 


VSPCCW 


DS 


ID 


20 


VSPBUFBK 


DS 


IF 


24 


VSPHISC 


DS 


IF 


28 


VSPIDASH 


DS 


IX V*1 


29 


VSPIDAL 


DS 


3X 


2C 


VSPIDAW2 


DS 


IF 




VSPSIZE 


EQU 


{*-VSPLCTL)/8 




VSPBUFSZ 


EQU 


(200) /8 



Field Description, Contents, Meaning 

Virtual address of user CCW 

DASD location (DCHR) of current page buffer 

Virtual address of page buffer 

Records remaining in current buffer 

Displacement in buffer of next record start 

Data byte count of IDA CCW 

Pointer to SFBLOK for file 

Current user CCW 

Address of a buffer area 

Use varies according to caller 

IDA work flag 

Address of indirect data list 

Contains IDAW2 

Size in doublewords (X'06') 
Size in doublewords (X'19') 
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VSPXBLOK 



VSPXBLOK: VIRTUAL SPOOL EXTENSION BLOCK 



VSPXBLCK serves as an extension to the virtual spool control block (VSPLCTL) . It contains 
the user-named destination of the file as well as RSCS tag information used by the Remote 
Spooling Communications Subsystem. 





8 

10 

18 



V*1 I V*2 I 



VSPXSPAR 



VSPXDIST 
VSPXXUSR 
VSPXTAG 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 

VSPXBLOK length (doublewords) 

VSPXTAG data length (doublewords) 

Reserved for IBM use 

Virtual device distribution code 

Virtual machine user to whom the file 

transferred 
Tag information data area 

VSPXSIZE EQU (*-VSPXBL0K)/8 VSPXBLOK size in doublewords (XM4») 






VSPXLEN 


DS 


IX 


V*1 


1 


VSPXTGLN 


DS 


IX 


V*2 


2 


VSPXSPAR 


DS 


XL6 




8 


VSPXDIST 


DS 


CL8 







VSPXXUSR 


DS 


CL8 




8 


VSPXTAG 


DS 


CL136 





IS 
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XINTBLOK 

XINTBLOK: EXTERNAL INTERRUPT BLOCK 

XINTBLOK saves the various types of external interrupts that are presented to the virtual 
machine. If multiple external interrupt conditions are simultaneously presented, as 
indicated by values presented in the block, code exists for handling the interrupts in 
their defined hierarchical order. 



I XI NT NEXT 

8 I XINTCODE I XINTMASK 



XINTSORT I XINTCPUA | 
XINTPARM I 



Hexadecimal Field 
Displacement Name 



XINTNEXT DS 

XINTSORT DS 

XINTCPUA DS 

XINTCODE DS 

XINTMASK DS 

XINTPARM DS 



IF 
1H 
1H 
1H 
1H 
IF 



Field Description, Contents, Meaning 

Address of next external interrupt block 
Left half of interrupt collating key 
Right half of interrupt collating key 
External interrupt code 
Control register mask (bits 16—31) 
External interrupt parameter word 



XINTSIZE EQU (*-XINTBLOK) /8 XINTBLOK size in doublewords (X'02') 
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SECTION 2. CMS DATA AREAS AND CONTROL BLQCKS 



This section contains CNS data areas and control blocks, 
relationships between the control blocks and data areas of CMS. 



Figure 2 shows the 



DMSNUC 



600 
608 
610 
618 
620 
628 
630 
638 
640 
648 
650 
658 
660 
668 
670 
678 
680 
688 
690 
698 
6A0 
6A8 
6B0 
6B8 
6C0 
6C8 
6D0 
6D8 
6E0 
6E8 
6F0 
6F8 



SYSREF 



A(FVS) 


A(OPSECT) 




A(DEVTAB) 


V(FSTLKP) 




V(DMSINM) 


V(FSTLKW) 




A(PIE) 


A(IADT) 




A(USERSECT) 


V{DMSDI0R) 




V(DMSSCNN) 


A(0) 




A(TABEND) 


A(SUBSECT) 




V(DMSSBDFR) 


V(DMSDIOW) 




V(DMSSMNST) 


A(ADTSECT) 


, 


V(FREE) 


V(FRET) 




V(DMSPIOCC) 


A{PGIVISECT) 




A(IOSECT) 


V(DMSDBD) 




A(DIOSECT) 


V(OSTABLE) 




A(DMSERL) 


A(DMSCRD) 




V(DMSFREB) 


A(SVCSECT) 




A(ADTLKP) 


V(DMSAUDUB) 




A{0) 


V(OSRET) 




V{CMSRET) 


VIDMSSCNO) 




V(DMSEXC) 


V(DMSLDRA) 




V(ADTLKW) 


V(USABRV) 




A(EXTSECT) 


A(SCBPTR) 




A(0) 


A(0) 




VIDMSLAF) 


V(DMSLAFNX) 




V(DMSLAFFE) 


V(DMSLAFFT) 




V{ADTNXT) 


V(DIVISTRK) 




V{DMSTRKX) 


V(DMSTQQ) 




V(DMSTOQX) 


V(DMSERS) 




V(TYPSRCH) 


V(DIVISAUD) 




V{KILLEX) 


V(DMSFNST) 




V(DMSBRD) 


V(DMSBWR) 




V(DMSFNS) 


V(DIVISSTTE) 




V{DMSSTTW) 


V(POINT) 





USERSECT 



SUBSECT 



TSOBLKS 



OPSECT 



DMSABW 



DMSFRT 



DMSERT 



DBGSECT (Debug work area 



CVTSECT(Some fields are filled in 
atlPL.) 



FVS 



DIOSECT 



SVCSECT 



PGMSECT 



lOSECT 



EXTSECT 



AFTSECT (Create when the file is 
opened. There is room for 5 AFTs in 
DMSNUC, others are in free storage.) 



ADTSECT (Space is allocated when 
DMSNUC is assembled, fields are 
filled in when ACCESS command is 
issued. There is one ADT entry for 
each of the 10 possible disks 



DEVTAB 



Terminal Buffers and Saveareas 



SYSREF 



IVIACDIRCandTXTDIRC 



NUCON 




Figure 2. CMS Control Block Relationships 
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ABTAB 

JBTAB- iUMD TERMINATION OPTION TABLE 

ABTAB contains one 8-byte entry for the background partition. Bytes 0-3 contain the 
address of the entry point of the user's abnormal termination routine. Bytes 4-7 contain 
the address of a 72— byte save area used by the supervisor to store the interrupt status 
information and the contents of the general registers. 

The IJBABTAB field (hex 54) in the SYSCOM block points to the ABTAB block. 



I 



ABBOUT 



ABSAVE 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 





ABTAB 


EQD 


*-8 





ABRCUT 


DC 


F'O' 


4 


ABSAVE 


DC 


F'O" 



ABEND option table 

Address of user termination routine 

Address of supervisor save area 



126 IBM VM/370: Data Areas and Control Block Logic 



ABHSECT 



ABHSECT: ABEMD EECOVEBY WO BK SPACE 

ABHSECT describes the fields used for saving registers and other data during ABEND 
recovery. 

V-constants in DMSABH, DMSDBG, DMSFRE, DMSITI, DMSITP, and DMSITS point to the ABWSECT 
block. ABWSECT is defined in module DMSABW. 



. 



I- 



UO I 



I— 



48 i 



4C . 



90 I 



ABNRR 



ABNREGS 



ABNPSW 



ABNPAS13 



Hexadecimal Field 
Displacement Name 






ABNREGS DS 


16F 


40 


ABNPSW DS 


D 


48 


ABNRR DS 


F 


4C 


ABNPAS13 DS 


18F 




S£ace for DMSERR PLIST 


94 


ORG 


ABNPAS13 


4C 


ABNERLST DS 


47X 



Field Description, Contents, Meaning 

Registers at time of ABEND 
PSW at time of ABEND 
Temporary save area 
Area passed to nucleus routines 
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ADTSECT 



ADTSECT: ACTIVE DISK TABLE 



ADTSECT describes the attributes of virtual disks (A-Y) accessed by a virtual machine via 
the ACCESS command. Space is allocated for the ADT when DHSHUC is assembled. In the ADT, 
certain fields are defined for use by both CBS and OS. For example, field ADTHBCT at 
displacement 1C (hexadecimal) into ADTSECT is also defined as OSADTVTA for use by OS 
simulation routines. ADTSECT is invoked by the ADT macro. 




8 
10 
18 
20 
28 
30 
38 
40 
48 
50 
58 
60 
68 



r 


ADTID 
ADTPTR 


1 

ADTDTA 


A*1 1 A*2 




ADTFDA 


ADTHFDli 






ADTMFDA 


ADTHBCT 


1 ADTFSTC 


ADTCHBA 




ADTCFST 


ADT 1ST 
ADTUSED 




1 ADTNUM 






ADTLEFT 


ADTLAST 




ADTCYL 


A*3 1 A*a 1 


A*5 1 A*6 




ADTMSK 


ADTQQM 






ADTPQM1 


ADTPQM2 






ADTPQM3 


ADTLHBA 






ADTLFST 


ADTNACW 1 


ADTRES 




ADTXNREC 


ADTXAREC 
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ADTSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



E^eded for Read-Onlj[ Disks and Read/Hrite Disks 



Disk identifier (label) 
Third flag byte 






ADTID 


DS 


CL6 




6 


ADTFLG3 


DS 


IX 


A*1 




Bits def, 


ined 


in ADTFLG3 






ADTFUPDl" 


"equ 


X'80» 






ADTFXCHN 


EQO 


X'40« 






ADTFRWOS 


EQU 


X«20' 






ADTFSORT 


EQU 


X'lO* 






ADTFORCE 


EQU 


X'08' 




7 


ADTFTYP 


DS 


IX 


A* 2 


8 


ADTPTR 


DS 


1A 




C 


ADTDTA 


DS 


1A 




10 


ADTFDA 


DS 


1A 




14 


ADTMFDN 


DS 


IF 




18 


ADTMFDA 


DS 


1A 




1C 


OSADTVTA 


DS 


OF 




1C 


ADTHBCT 


DS 


IF 




20 


ADTFSTC 


DS 


IF 




24 


OSADTFST 


DS 


OF 




24 


ADTCHBA 


DS 


1A 




28 


OSADTVTB 


DS 


OF 




28 


ADTCFST 


DS 


IF 




2C 


ADT1ST 


DS 


IF 




30 


OSADTDSK 


DS 


OF 




30 


ADTNUM 


DS 


IF 




34 


0SADTSV1 


DS 


OF 




34 


ADTUSED 


DS 


IF 




38 


ADTLEFT 


DS 


IF 




3C 


ADTLAST 


DS 


IF 




40 


ADTCYL 


DS 


IF 




44 


ADTM 


DS 


1C 


A*3 


45 


ADTMX 


DS 


1C 


A* 4 


46 


ADTFLG1 


DS 


IX 


A*5 




Bits defined 


in ADTFLG1 






ADTFSF 


EQU 


X'80' 






ADTFRO 


EQU 


X«40« 






ADTFRW 


EQU 


X'20' 






ADTFFSTF 


EQU 


X'lO* 






ADTFFSTV 


EQU 


X'08' 






ADTFQQF 


EQU 


X'04« 






ADTROX 


EQU 


X'02' 






ADTFMIN 


EQU 


X'OI* 




47 


AFTFLG2 


DS 


IX 


A*6 




Bits def^ 


ined 


in ADTFLG2 





48 



ADTFMFD EQU 
ADTFALNM EQU 
ADTFALTY EQU 
ADTFMDRO EQU 
ADTFALMD EQU 
ADTFALUF EQU 

ADTSSTM EQU 

ADTFROS EQU 

ADTFDOS EQU 

ADT2ND DS 



First half of DMSAUD has been called 
Extra chain link(s) to be returned 
Read/write OS or DOS disk 
All FST hyperblocks and FST entries sorted 



Filetype flag byte 

Pointer to next ADT block in chain 

Device table address in NUCON 

File directory (SSTAT) address 

Number doublewords in MFD 

Master file directory address 

VTOC address of OS pack 

FST hyperblock count 

Number of FST 40-byte entries (files) 

Address of first OS FST 

Pointer to current FST hyperblock 

Upper VTOC address of OS pack 

Displacement of current FST entry 

Displacement of first word in bit-mask with 'hole' 

OS disk address (cuu) 

Number of records (NUMTRKS) 

Save area 

Number of records in use (QTUSEDP) 

Number of records left (QTLEFTP) 

Displacement of last nonzero byte in bit-mask 

Number of cylinders on disk (NUMCYLP) 

Mode letter (A,B,C,. . . ,S,Y, etc.) 

Extension-of-mode letter (A,B,C, etc.) 

First flag byte 



ADT block in free storage 
CMS read-only disk (attached and ready) 
CMS Read/write disk (attached and ready) 
First FST hyperblock is in free storage 
FST hyperblocks are of varying length 
200-byte QQMSK is in free storage 
This disk has read-only extension (s) 
ADT Block is minimum size 

Second flag byte 



X'80' MFD is in storage 

X'40' All filenames are in storage 

X'20' All filetypes are in storage 

X'10' Modes 1-5 are in storage 

ADTFMDRO+X'08' All modes (0-5) are in storage 

ADTFMFD+ADTFALNM+ADTFALTY+ADTFALMD 

All UFD is in storage 
X'02' ADT SSTAT chain modified 

X'04' Indicates this is an OS disk 

X'01' Indicates this is a DOS disk 

OD 
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ADTSECT 



Eexadeciaal Field 
Displacement Name 



Field Description, Contents, Meaning 



Needed for Read/frite Disks 



48 


ADTHSK 


DS 


1A 


4C 


ADTQQM 


DS 


1A 


50 


ADTPQM1 


DS 


IF 


54 


ADTPQM2 


DS 


IF 


58 


ADTPQM3 


DS 


IF 


5C 


ADTLHBA 


DS 


1A 


60 


ADTLFST 


DS 


IF 


64 


ADTNACH 


DS 


1H 


66 


ADTRES 


DS 


1H 


68 


ADTXNREC 


DS 


IF 


6C 


ADTXAREC 


DS 


IF 




ADTLBM 


EQO 


ADT2ND-ADTS 




ADTLDM 


EQU 


ADTLBM/8 




ADTLB 


EQO 


♦-ADTSECT 




ADTLD 


EQD 


(ADTLB+7)/8 




Qiher Parameters 




ADTRL 


EQO 


800 




ADTHXBHL 


EQO 


10 




MCOH Device 


I^ble Offsets 




DTAD 


EQO 







DTADT 


EQO 


3 




DTAS 


EQO 


4 



800-byte (QHSK) bit-mask address 
200-byte (QQMSK) bit-mask address 
PQMSIZ = number of bytes in QMSK > 215 
PQMNOM = number of 800-byte records for QMSK 
RONOM = number of doublewords in QMSK 
Pointer to last FST hyperblock 
Dlsplacment of FST in last hyperblock 
Number of active write files - half word 
Reserve count (RESRVCNT) - halfword 

Number doublewords of extra chain link records 
Address of block of extra chain link records 

ADT2ND-ADTSECT Length of minimum ADT block (bytes) 

Length of minimum ADT block in doublewords 

Length of full ADT block (bytes) 

Length of full ADT block in doublewords 



Logical record length 

Maximum bit map length (number of records) for 333( 



Device number 
Device type byte 
Symbolic device name 
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AFTSECT 



AFTSECT: ACTIVE FILE TABLE 

AFTSECT is used to describe a file currently open for a read or write. The AFT is created 
when a file is opened. Space for up to five AFTs is available in DMSNUC; any others must 
reside in free storage. AFTSECT is invoked via the AFT macro. 



10 



I AFTCLD I AFTCLN 
8 I AFTDBD | AFTDEN 



AFTCLA 
AFTDBA 



AFTCLB 






60 I A*1 I AFTPFST | AFTIM | AFTID 

68 I AFTFCLA | AFTFCLX | AFTCLDX 

70 I A*2 I I AFTOCLDX | 

78 I AFTN 

80 I APTT 

88 I AFTD I AFTWP | AFTRP 

90 I AFTM I AFTIC | AFTFCL | A*3 | A*U 

98 I AFTIL I AFTDBC | AFTYR 

AO I AFTADT | AFTPTB 






Hexadecimal Field 
Displacement Name 






AFTCLD 


DS 


H 


2 


AFTCLN 


DS 


H 


^ 


AFTCLA 


DS 


F 


8 


AFTDBD 


DS 


H 


A 


AFTDBN 


DS 


H 


c 


AFTDBA 


DS 


F 


10 


AFTCLB 


DS 


XL80 


60 


AFTFLG 


DS 


X 




Bits def 


ined 


in AFTFLG 




AFTUSED 


EQU 


X'80' 




*♦* 


EQU 


X«40' 




AFTICF 


EQU 


X'20' 




AFTFBA 


EQU 


XMO* 




AFTDBF 


EQU 


X'08' 




AFTHHT 


EQU 


X'04' 




AFTRD 


EQU 


X«02' 




AFTFULD 


EQU 


X»01' 



Field Description, Contents, Meaning 

Disk address of current chain link 
Number of current chain link 
Address of chain link buffer 
Disk address of current data block 
Number of current data block 
Address of current data block 
Chain link buffer from 1st chain link 
A*1 Flag byte 



Active file table block in use 

First chain link in storage 

Full buffer assigned 

Data block in storage 

Active write 

Active read 

Full disk special case 
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AFT SECT 



Hexadecimal Field 
Displacement Name 



61 
6a 
66 
68 
6C 
6E 
70 



71 
72 



AFTPFST 


DS 


3X 


AFTIN 


DS 


H 


AFTID 


DS 


H 


AFTFCLA 


DS 


F 


AFTFCLX 


DS 


H 


AFTCLDX 


DS 


H 


ArTFLG2 


DS 


X 



Bits Refined in AFTFLG2 
AFTNEM EQU X«80«~ 
AFTOIDCL EQU X • 40 • 
AFTCLX EQU X'20' 



DS 
AFTOCLDX DS 



IX 

1H 



Field Description, Contents, Meaning 

Pointer to (static) FST entry 
Current item number 

Displacement of current item in data block 
Address of first chain link 
Disk address of swapped FCL 
Disk address of swapped chain link 
A*2 Second flag byte 



New file 

Current chain link existed previously 

Alternate chain link assigned/implied 

Reserved for IBM use 

Old value (if any) of AFTCLDX 



Cop;y of FST Block Imbedded in AFT Block 



78 


AFTFST 


DS 


OD 




78 


AFTN 


DS 


D 




80 


AFTT 


DS 


D 




88 


AFTD 


DS 


F 




8C 


AFTMP 


DS 


H 




8E 


AFTRP 


DS 


H 




90 


AFTM 


DS 


H 




92 


AFTIC 


DS 


H 




94 


AFTFCL 


DS 


H 




96 


AFTFV 


DS 


C 


A*3 


97 


AFTFB 


DS 


X 


A*4 


98 


AFTIL 


DS 


F 




9C 


AFTDBC 


DS 


H 




9E 


AFTYR 


DS 


H 




AO 


AFTADT 


DS 


F 




Al\ 


AFTPTR 


DS 


F 






Bit defi 


ned in 


AFTPTB 





A8 




A4 
A8 
1UC 
150 
1FU 
1F8 
29C 
2A0 
344 

348 



DS OD 
AFTLB EQU *-AFTSECT 
AFTLD EQU AFTLB/8 

AFTSECT 
AFTSTART DS OD 

ENTRY AFTSTART 



Active File Table 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 



4F'0' - 
A(* + 4) 
41F'0' 
A (* + 4) 
41F»0' 
A(*+4) 
41F'0' 
A (* + 4) 
41F'0' 
A(0) - 

2F'0" - 



Filename 

Filetype 

Date/time last written 

Write pointer (item no.) 

Read pointer (item no.) 

Filemode 

Item count 

First chain link 

Fixed (F) /variable (V) flag 

FST flag byte 

(Maximum) item length 

800-tyte data block count 

Year 

Pointer to active disk table 

Pointer to next AFT block in chain 



Indicates in free storage 

End of DSECT 

Length of AFT block in bytes 

Length of AFT block in doublewords 



First AFT block 

Second AFT block 

Third AFT block 

Fourth AFT block 

Fifth AFT block 

Addr of next AFT block (in free storage) 

Reserved for IBM use 
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ANCHSECT 

ANCHSECT: ANCHOR TABLE 

ANCHSECT defines the DOS/VS anchor table. This DSECT is used by DMSDOS when a CDLOAD 
(SVC 65) is issued, and the phase is not found in either the CMSVSAM or CMSAMS segment. 
In this case, the specified phase is loaded either from a CMS DOSLIB or a DOS Core image 
library, and the name, load point, entry point, and the length in bytes, of the phase are 
saved in an available slot in the anchor table. ANCHSECT is invoked by the ANCHTAB 
macro. 





8 

10 

18 

20 



ANCHENDA 
ANCHCBS 



I Reserved for IBM use 
I ANCHOAL 



ANCHPHNM 



ANCHLDPT 
A*1 I ANCHPHLN 



ANCHENTP 






Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



End address of anchor table 

Reserved for IBM use 

Pointer to VSAM AMCB table 

Pointer to VSAM OAL (OPEN ACB) table 

E2ii2*i!l^ hi 2a§ 2£ SSE® ^Schor Table Entries of the following format; 






ANCHENDA DC 


A(0) 


u 


DC 


F'O* 


8 


ANCHCBS DC 


A(0) 


C 


AHCHCAL DC 


A(0) 



10 
18 
1C 
20 



ANCHPHNM DC 
ANCHLDPT DC 
ANCHENTP DC 
AHCHSTSW DC 



CL8' 
A(0) 
A(0) 
X'OO' 



A*1 



Phase name 
Load point 
Entry point 
Status switch 



Bits defined in ANCHSTSW 

ANCHML(5d EQU X'OO' 

ANCHINST EQU X'7F' 

ANCHRPJL EQU X'FF* 



21 



ANCHLEMG EQU 
ANCHSIZ EQU 

ANCHPHLN DC 



20 
1024 

AL3 (0) 



Phase must be loaded 
Phase is already in storage 
Requested phase just loaded by 
another task (only if AP=YES) 
Length of one anchor table entry 
Default size of anchor table (in bytes) 

Length of phase in bytes 
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BITLSBCT 



BATLSECT: CMS BATCH USEE JOB LIMITS 



EATLSECT describes the fields in the user job limits table for CMS batch jobs. 
The ABATLIMT field (hex U5C) in NUCON points to the job limits table. 



I BATCPDL I BATCPUC 
8 I BATPUML I BATPUNC 



I BATPRTL I BATPRTC 



Hexadecimal Field 
Eisplacement Name 



Field Description, Contents, Meaning 



BATCPUL DC 

BATCPUC DC 

BATPRTL DC 

BATPRTC DC 

BATPUNL DC 

BATPUNC DC 



H«32767' 

H'O" 

H'32767' 

H'O* 

H'32767« 

H'O' 



Virtual CPU limit (second) ; 

can be reset 
Current CPU count; 

do not reset 
Number printed lines limit; 

can be reset 
Current line count; 

do not reset 
Number punched cards limit ; 

can be reset 
Current card count; 

do not reset 
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BBOX 



BBOX: BOUNDARY BOX 

BBOX contains the begin and end addresses of the virtual and real partitions, 
respectively, 

The IJBBOX field (hex DC) in the SYSCOM block points to the BBOX block. 



I REALOBP 
8 I VIRTOBP 



I REALNDP 
I VIRTENDP 



Hexadecimal Field 
Displacement Name 



REALORP DS 

REALNDP DS 

VIRTORP DS 

VIRTENDP DS 



XL4 
XL4 
XL4 
XL4 



Field Description, Contents, Meaning 



Origin of real partition 
End of real partition + 1 
Origin of virtual partition 
End of virtual partition + 1 



l311§ies for First Entrj in BBOX 



ALTSDAR EQU 

HINREALP EQU 

MPGEPOOL EQU 

ORIGVIRT EQU 

FINVIRT EQU 



REALORP Address of alternate area 

REALNDP No. page frames in min. real partition 

REALNDP+2 No. page frames in main page pool 

VIRTORP Origin of virtual storage 

VIRTENDP End of virtual storage +1 
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BGCOM 



BGCOM: DOV/VS PARTITION COMMUNICATION REGION 



BGCOM simulates the DOS/VS Partition Communication Region (BGCOM) . The ABGCOM field (hex 
4E0) in NUCOH points to the BGCOM tlock. 





r 




1 









JOBDATE 1 


8 




PPEG 1 


EOSSP t 1 


10 






1 OPSI 1 


18 






COMNAME 1 


20 




PPEND 


1 HIPHAS 1 


28 




HIPROG 


1 LABLEN 1 PIK | 


30 




EOCADR 


1 A*1 1 A*2 1 A*3 1 A*4 | 


38 


1 


!l*5 1 A*6 1 


A*7 1 A*8 1 DALC | FOCLPT | 


40 




PDBPT 1 


FAVPT 1 JIBPT 1 TEBPT | 


48 




FICLPT 1 


NICLPT 1 LUBPT | A*9 | | 


50 




MMDD 


1 YYDDD 1 


58 




LIOCSCOM 1 


PIBPT 1 CHKPTID 1 JOBZON | 


60 




DIBPT 1 


Reserved | PCPTR | ITPTR | 


68 




OCPT 1 


PHTIMS 1 Reserved | LTK | 


70 




SYSPAH 


1 JAPAHT 1 


78 




TODCOM 


1 PIB2PTR 1 PDTABB | 


80 


— 


IJLQTTAD 


1 BGCOMPT 1 A*10 1 A*11 | 


88 


COMEX 


1 A*12 1 A*13| A*14 1 1 


90 






PROCNAM 1 A* 15 1 


98 






POVNAM 1 A* 16 1 




1 — 




1 



Hexadecimal Field 
Displacement Name 






JOBDATE 


DC 


C 00/00/00' 


8 


PPBEG 


DC 


S(0) 


A 


EOSSP 


DC 


S(0) 


C 




DC 


11X«00' 


17 


UPSI 


DC 


X»00' 


18 


COMNAME 


DC 


CL8' CMS/DOS' 


20 


PPEND 


DC 


A(0) 



Field Description, Contents, Meaning 



Job date 

Supervisor end 

End of storage protection 

User scratch area 

UPSI byte 

Job name 

Highest storage address of partition 
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BGCOM 



Hexadecimal Field 
Displacement Name 



24 


HIPHAS 


DC 


A(0) 


28 


HIPROG 


DC 


A(0) 


2C 


LABLEN 


DC 


H'O' 


2E 


PIK 


DC 


X'0010' 


30 


ECCADS 


DC 


A(0) 


3^ 


CONFIG 


DC 


BM1101000'A*1 


35 


LTACT 


DC 


B'00010000'A*2 


36 


S0B1 


DC 


B'11000100«A*3 


37 


S0B2 


DC 


B'11011010' A*4 


38 


JCSH1 


DC 


B'11010000'A*5 


39 


JCSH2 


DC 


B"00000000'A*6 


3A 


JCSH3 


DC 


B'11000100'A*7 


3B 


JCSH4 


DC 


B'10000000'A*8 


3C 


DALC 


DC 


H'O" 


3E 


FOCLPT 


DC 


S(0) 


40 


PUBPT 


DC 


S(0) 


42 


FAVPT 


DC 


S(0) 


44 


JIBPT 


DC 


S(0) 


46 


TEBPT 


DC 


3(0) 


48 


FICLPT 


DC 


S(0) 


4A 


NICLPT 


DC 


S(0) 


4C 


LUBPT 


DC 


S(0) 


4E 


SYSLINE 


DC 


AL1(55) A*9 


4F 


SYSDATE 


DS 


0CL9 


4F 


MMDD 


DC 


XL4'00' 


53 


YYDDD 


DC 


XLS'OO' 


58 


LIOCSCCM 


DC 


2X«00' 


5A 


PIBPT 


DC 


S(0) 


5C 


CHKPTII) 


DC 


H«0« 


5E 


JOBZON 


DC 


S(0) 


60 


DIBPT 


DC 


S(0) 


62 




DC 


H'0« 


64 


PCPTB 


DC 


S(0) 


66 


ITPTR 


DC 


S(0) 


68 


OCPT 


DC 


3(0) 


6A 


PWTIMS 


DC 


x'oooo* 


6C 




DC 


H«0' 


6E 


LTK 


DC 


3(0) 


70 


SYSPAR 


DC 


F'O* 


74 


JAPART 


DC 


F«0' 


78 


TODCOM 


DC 


A(0) 


7C 


PIB2PTR 


DC 


3(0) 


7E 


PDTABB 


DC 


3(0) 


80 


IJLQTTAD 


DC 


A(0) 


84 


BGCOMPT 


DC 


3(0) 


86 


OPTNBYTE 


DC 


X'OO' A*10 


87 


RMSROPEN 


DC 


B'OOOOOOOO' A*11 


88 


COMEX 


DC 


A(0) 


8C 


STDOPT 


DC 


B'01000000'A*12 


8D 


TEMOPT 


DC 


B«01000000'A*13 


8E 


DISKCOHF 


DC 


X'OO* A*14 


8F 


PROCNAN 


DC 


CL8' • 


97 


PSHTCH 


DC 


X'O' A*15 


98 


POVNAM 


DC 


CL7« • 


9F 


INSIZE 


DC 


X'O' A*16 



Field Description, Contents, Meaning 

End address of last phase loaded 

End address of longest phase loaded 

Length of problem program label area 

Program interrupt key 

End of virtual storage address 

Machine configuration byte 

System configuration byte 

Standard language translator options 

Standard supervisor options 

Job control byte 

Linkage control byte 

Nonstandard language translator options 

Job duration indicator byte 

Disk address of volume label 

Address of FOCL 

Address of PUB 

Address of FAVP 

Address of JIB 

Address of TEB 

Address of FICL 

Address of NICL 

Address of LUB 

SYSLST line count 

System date 

MMDD or DDMM 

YYDDD portion of date 

LIOCS communication bytes 

Address of PIB 

Last checkpoint number 

Job zone in minutes 

Background DIB pointer 

Reserved for IBM use 

PC option table 

IT option table 

OC option table 

Key of program with IT support 

Reserved for IBM use 

Logical transient key 

Address of SYSPARM 

Address of job accounting table 

Address of TOD communications area 

Address of PIB extension 

Address of MICR DTF table 

Address of QTAM VECTOR table 

Address of background COMREG 

Option indicator byte 

System configuration byte 2 

Pointer to SYSCOM option table 

Standard job control option byte 

Temporary job control option byte 

Disk configuration byte 

Procedure name 

Interface byte for cat. procedure 

Save area for statement name 

81-byte SYSIN indicator 
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CHSTiXE 



CHSTAXE: TERMINAL ATTEMTIOli EXIT ELEMENT 



CMSTAXE defines the fields used in a Terminal Attention Exit Element (TAXE) . The TAXE is 
used mainly by DMSCIT for processing attention interrupts. CMSTAXE is invoked via the 
TAXE macro. 

The TAXEADDB field (hex 5D4) in NUCON points to CMSTAXE. 



I 



8 I 



I — 



10 I 

I 

18 I 



TAXESPSH 

TAXELNK 

TAXETSOF 



TAXEEXIT 

TAXEIOL 

TAXERTNA 



TAXEEXTS 



I- 



60 I 



TAXEIOWS 



88 



I — 



9 I /////////////////////////// 1 

I 
98 I TAIEMSGL | A*1 I ////////I 

AO I TAIERSAVE 



TAXETAIE 
TAXEUSER 
TAIEIAD 



-I 



lAO I 



Hexadecimal 


Field 






Displacement 


Name 









TAXESPSW 


DS 


IF 


4 


TAXEEXIT 


DS 


A 


8 


TAXESTAT 


DS 


OX 




TAXEFREQ 


EQU 


X'80 


8 


TAXELNK 


DS 


A 


C 


TAXEIOL 


DS 


IF 


10 


TAXETSOF 


DS 


IF 


m 


TAXERTNA 


DS 


A 


18 


TAXEEXTS 


DS 


18F 


60 


TAXEIOWS 


DS 


11F 



Field Description, Contents, Meaning 

Left half PSH for ATTN return 

ATTN exit address 

Status of exit return- 

ATTN exit taken ^ 

Next TAXE on queue 

Left half I/O old PSW 

TSOFLAGS saved here 

Return address 

ATTN exit return save area 

DMSIOH save area 



Also Attention Exit Parameter List 



8C 


TAXETAIE DS 


A 


90 


DS 


IF 


94 


TAXEDEF DS 


OX 


94 


TAXEUSER DS 


A 



Address of TAIE 

Reserved 

Defer indicator 

User PLIST address 



Terminal Attention Interrupt Element (TAIl) 



98 


TAIEMSGL 


DS 


2X 


9A 


TAIETGET 


DS 


IX 


9B 




DS 


IX 


9C 


TAIEIAD 


DS 


A 


AO 


TAIERSAV 


DS 


64F 



Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Right half I/O old PSH 

Register 0-15 of interrupted program 
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CVTSECT 



CVTSECT: COMjlUNICATigN VECJOB TABLE ^S SUPPORTED BY CMS 



CVTSECT simulates the OS Communication Vector Tatle. CVTSECT is invoked via the CMSCVT 
macro. 

The ACMSCVT field (hex 10) in NUCON points to CMSCVT. 

I CVTMDL I 




8 

40 



58 



78 
80 
88 



AO 



B8 



108 



not supported 



CVTDATE 



not supported 



CVTEXIT I CVTBRET | 



not supported 



I A*1 I 



CVTR13 



CVTNUCB 



not supported 



CVTMZOC 



not supported 



not supported 



I CVTOPTA 



CVTDSER 



not supported 



CVTAVIB 
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CVTSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



Communication Vector Table as Supported bj CMS 








DC 


H'0« 


2 


CVTHDL 


DC 


H'0« 


4 




DC 


CL4«C3.0« 


8 


CMSCVT 


DS 


OD 


8 




DC 


14F'-1» 


40 


CVTDATE 


DC 


PL4'0' 


4a 




DC 


3F'-1' 


50 




DC 


A(0) 


54 




DC 


F'-1» 


58 


CVTEXIT 


DC 


XL2'0A03' 


5A 


CVTBRET 


DC 


XL2'07FE' 


5C 




DC 


8F«-1' 


7C 


CVTDCB 


DC 


XL1'40' 


7D 




DC 


FL3'-1' 


80 


CVTR13 


DC 


F«0' 


84 




DC 


F'-T 


88 


CVTNUCB 


DC 


A{0) 


8C 




DC 


8F'-1' 


AC 


CVTMZOO 


DC 


A(0) 


BO 




DC 


3F'-1' 


BC 




DC 


XL2'00' 


BE 


CVTOPTA 


DC 


XL2'00' 


CO 




DC 


2F'-1' 


C8 




DC 


3A(0) 


D4 


CVTUSER 


DC 


F'O* 


D8 




DC 


12F'-1' 


108 


CVTAVIB 


DC 


V(DMSVIB) 



Reserved for IBM use 
CPU model ID 
CMS release number 
CVT start 
Not supported 

Current date in packed decimal 
Not supported 
Not supported 
Not supported 

AN SVC 3 instruction (exit) 
A BCR 15,14 instruction 
Not supported 
A*1 System configuration = PCP 
Not supported 
R13 saved during 'OPEN' 
Not supported 

Lowest storage address not in nucleus 
Not supported 

Highest storage address in machine 
Not supported 
Not supported 

Bit 7: extended precision floating point hardware 
Not supported 
Not supported 
Field available to user 
Not supported 
Address of VSAM interface bootstrap 
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DBGSECT 

EBGSECT: DEBUG WORK AREA 

DBGSECT contains the files used by DEBUG for saving registers, breakpoints, PSWs, and 
other data. 

V-constants in DMSDBD, DMSDBG, and DMSITE point to the DEBUG work area. 



I 



I- 



8 I 



I — 



108 I 



188 



190 I 

1B8 
ICO 
1C8 
1D0 
1D8 
1E0 
1E8 
1F0 
1F8 
200 
208 

2U8 



CCWPRINT I /////////////////////////// 

SYMTABLE 



SYMTBG 






I — 



BRKPNTBL 



TBLEND 



ARGS 



JFLAGS 



WAITRD 



I A*1 I/////// 



1 WTRDCNT 



ORG 



I /////////////////////////// 



DEC 



ARGSAV 
EXAMLC 



DECDEC 
I 



RETSAV 
EXANLG 



BEGAT 



SAVE1 



STOPAT 
SAVE2 



DBGSAV1 



DBGSAV2 
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DBGSECT 



288 
290 

298 

2A0 

2A8 



TSYM 



A*2 I 



XPSM 


LINE 

r— 


1 


LINE1 



I 

300 I 



I 



I A*3 I 



1 

I 



320 
328 
330 
338 
340 
348 
350 
358 
360 



I A*a I A*5 I 



PLIST for DMSCHR 



I A*6 



INPUTSIZ I 



HEX 



CONHCT 

I 

HEXHEX 



BITS 



380 
388 
390 
398 



I 

I A*7 



YPSW 



TBLIHDX I 

A*8 I A*9 I A*10 I A*11 I 



DBGXHK (Cont) I 
I 
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DBGSECT 



Hexadecimal 
Displacement 



Field 
Name 



Field Description, Contents, Meaning 



8 


SYMTABLE 


DS 


32D 


108 


SYMTBG 


DC 


F'O" 


IOC 


BRKPMTBL 


DC 


16F«0,-1' 


18C 


TBLEND 


DC 


A (TBLEND) 



1D0 



ENTEY DBGSECT 
CCHPRI19T CCW X«09» ,0,SILI,133 Printer CCW for DEBDUMP 

User-defined symbol table 
Symbol table entries 

Breakpoint table 

End address of breakpoint table 

Storage and Constants for NEWLIN and Control 



Arguments stored here 
Number of bytes in args 
Needed for set GPR command 
End of argument area 
Flags corresponding to ABGS 



190 




DS 


OD 


190 


ARGS 


DS 


5D 




MVCHT1 


EQU 


♦-ARGS 




MVCNT 


EQU 


MVCNT1-8 




ARGMAX 


EQU 


* 


1B8 


JFLAGS 


DS 


6X 




One Flag 


for 


Each Parameter 



1BE 


ARGSCT 


DS 


IX A 




MVCNT2 


EQU 


*-ARGS 


ICO 




DS 


OD 


ICO 


WAITRD 


DC 


CL8« WAITRD' 


1C8 




DC 


A (INPUT) 


ICC 




DC 


C'U« 


1CD 




DC 


X'OO" 


ICE 


WTRDCNT 


DC 


H«0« 



ORG 



DC 



F'O' 



00 = Numeric (0 - 9) 
FO = Hex (A - F, 0-9) 
FF = Alphabetic (A - F) 

A*1 Number of arguments in command line 
For initializing to zero 



Parameter list to get input line 

A (input buffer) 

Clean up and logical carriage return 

Byte count filled in here 

Origin of routine being examined 



The Following Variables Are Used by DEBUG and DEBDUMP 



Binary word 
Decimal word 



1D8 


DEC 


DS 


ID 


1E0 


DECDEC 


DS 


ID 


1E8 


ARGSAV 


DS 


IF 


1EC 


RETSAV 


DS 


IF 


1F0 


EXAMLC 


DS 


IF 


1F4 


EXAMLG 


DS 


IF 


1F8 


BEGAT 


DS 


IF 


1FC 


STOPAT 


DS 


1F 




LASTLINE 


EQU 


DECDEC 


200 


SAVE1 


DS 


IF 


20a 


SAVE2 


DS 


IF 


208 


DBGSAV1 


DS 


16F 


218 


DBGSAV2 


DS 


16F 



288 



TSYM 



DS 



4F 



Storage for argument location 
Storage for return address 

First location to be examined 
Length of field to be examined 

Beginning parameter being processed 
Last parameter location 

32 bytes for last line dumped 

DEBDUMP uses for line count 

DEBUG BALR call save 

Save area for CONWAIT/CONBEAD 

Symbol entry 
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DBGSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



298 

2A0 
2&1 
2AC 
303 
3 04 
32U 
325 



328 
328 
330 
33a 
337 

338 
33C 
340 
348 
34C 
350 
358 
359 
361 
36F 
379 



37F 



XPSW 

0UTPT1 

LINE 

LINE1 

LINE1B 

LINE1A 

LINEIC 

LINE ID 

DBGOOT 

INPUT 

INPUT1 

CONNB 



CONWBL 



HEXHEX 



BITS 



CONHXT 



DS 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

EQU 

EQU 

DS 
DC 
DC 
DC 
DC 



INPUTSIZ DS 

DC 

CONHCT 

HEX 



DC 

DS 

DC 

DS 

DC 

DC 

ORG 

DC 

DC 

EQU 



DBGSHTCH DC 



ID Execution PSH 

IC ' A*2 Byte count 
CL11' • I/O buffer 
87X'40' Filler bytes 

C'*' A*3 Filler bytes 
32X«40' Filler bytes 

C«*» A*4 Filler bytes 

X«40' A*5 Filler bytes 
LINE Output buffer 

LINE Input buffer 

LINE+60 Hex pack area 



OD 

CL8«TYPLIN« 

AL1 (1) ,AL3(DBG0UT) 

CLI'B" ,AL2 (0) 

AL1(0) A*6 



PLIST for DMSCWR to type output line 
PLIST continued 
PLIST continued 
PLIST continued 
PLIST continued 



1H Size of typed-in input line 

F'O' 

X'FAFBFCFDFEFFOOOO' Translate table 

IF Binary word 

X'FFFFFFFF* Fence 

2F Printer graphic word 

X'FF' Extra translate byte 

X'COCOCOCOCOCOCOCO" Scratch word 

*+14 Translate table 

C'0123456789' Translate table 

C'ABCDEF' Translate table 

CONHCT-C A' 



X'OO' 



Bits defined in DBGSWTCH 





EQU 


X'80' 




EQU 


X'40' 


DBDEXIT 


EQU 


X'20' 


DBDDMSG 


EQU 


XMO* 


DBGSET 


EQU 


X'08' 


DBGPERM 


EQU 


X'04' 


DBGCOND 


EQU 


X'02' 



A*7 Internal DEBUG status flags 



Reserved for IBM use 

Reserved for IBM use 

Signals exit from DEBDUMP 

Signals duplicate msg in DEBDUMP 

Signals SET command 

Reserved for IBM use 

Reserved for IBM use 



The Follcwincj are Reserved for IBM Use 



380 
388 
38C 
38E 
390 
391 
392 
393 



394 
39a 



YPSW 


DS 


D 


TBLINDX 


DS 


F 


BCR 


NOPR 







NOPR 





ILC 


DS 


IC 


ILC11 


DC 


X'06> 


ILC0110 


DC 


X'04' 


ILCOO 


DC 


X'02' 


BAL 


EQU 


X'45' 


BALR 


EQU 


X'05' 


DBGXWK 


DS 


3H 




LPSW 


48 



PSW containing NSI 
Current BRKPT table index 
NOPR to pad DBGXWK when needed 
Additional NOPR (if needed) 
A*8 ILC of instruction in DBGXWK 
A*9 3 halfword instructions ((3 bytes) 
A*10 2 halfword instructions (4 bytes) 
A* 11 1 halfword instructions (2 bytes) 
BAL op code 
BALR op code 

Recreate instruction at BRKPT addr 
Give control to NSI 
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DEVSECT 



DEVSECT: DEVICE TABLE DSECT 



DEVSECT describes the device information required for input/output routines, 
a DSECT corresponding to the data in a DEVTAB entry. 



DEVSECT is 



I DEVADDR | A*1 | A*2 | DEVNAME | 

8 I DEVIPRA I DEVMISC | 

-J 



Field Description, Contents, Meaning 



Sexadecimal 


Field 






Displacement 


Name 









DEVADDB 


DS 


1H 


2 


DEVFLAG 


DS 


IX 


3 


DEVTYPE 


DS 


IX 


4 


DEVMAHE 


DS 


IF 


8 


DEVIPRA 


DS 


IF 


C 


DEVMISC 


DS 


IF 




DEVSIZE 


EQU 


♦-DEVSECT 



A*1 
A*2 



Virtual device ^address 

Device flags 

Device type 

Symbolic device name 

Interrupt processing routine address 

Miscellaneous - device dependent 

Device table size (in bytes) 
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DEVTAB 



DEVTAB: DEVICE TABLE 



DEVTAB contains the entries for the various devices handled by CMS (disks, tapes, reader, 
punch, printer, and console). 

The device table is pointed to by V-constants in DHSIOW and DMSITI, and is also 
referenced indirectly by the ADEVTAB field (hex e08) in NDCON. 






1 CONSOLE 1 


r 
AO 1 


8 




A8 1 


10 


1 ADISK 1 


BO 1 


18 




B8 1 


20 


! BDISK 1 


CO 1 


28 




C8 1 


30 


CDISK 1 


DO 1 


38 




EO 1 


40 


DDISK 1 






E8 1 


48 




FO 1 


50 


EDISK 1 






F8 1 


58 




1001 


60 


FDISK 1 






1081 


68 










1101 


70 


GDISK 1 






1181 


78 






80 


SDISK 1 


1201 


88 




1281 


90 


YDISK 1 


1301 


98 
1 




1381 






1401 
1481 



ZDISK 



READER1 



PUNCH1 



PRINTER 1 



READER2 



PDNCH2 



PR INTER 2 



TAPEI 



TAPE2 



TAPE4 



DUMMY 
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DEVTAB 



Hexadecimal 


Field 






Displacement 


Name 









COMSOLE 


DS 


OD 







DC 


XL2'009' 


2 




DC 


XL2«0' 


^ 




DC 


CL4'C0N1' 


8 




DC 


VL4 (CONSI) 


c 




DC 


XL4'0« 


10 


ADISK 


DS 


OD 


10 




DC 


XL2'191' 


12 




DC 


XL2»0' 


14 




DC 


CL4'DSK1' 


18 




DC 


AL4 (0) 


1C 




DC 


XL4'0' 


20 


BDISK 


DS 


OD 


20 




DC 


XL2«000' 


22 




DC 


XL2'0' 


24 




DC 


CL4»DSK2' 


28 




DC 


AL4{0) 


2C 




DC 


XL4'0' 


30 


CDISK 


DS 


OD 


30 




DC 


XL2«000' 


32 




DC 


XL2«0' 


34 




DC 


CL4'DSK3' 


38 




DC 


AL4 (0) 


3C 




DC 


XL4'0' 


40 


DDISK 


DS 


OD 


40 




DC 


XL2'192' 


42 




DC 


XL2'0' 


44 




DC 


CL4'DSK4' 


48 




DC 


AL4 (0) 


4C 




DC 


XL4«0' 


50 


EDISK 


DS 


OD 


50 




DC 


XL2'000' 


52 




DC 


XL2«0' 


54 




DC 


CL4«DSK5' 


58 




DC 


AL4 (0) 


5C 




DC 


XL4'0' 


60 


FDISK 


DS 


OD 


60 




DC 


XL2'000' 


62 




DC 


XL2'0' 


64 




DC 


CL4'DSK6' 


68 




DC 


AL4 (0) 


6C 




DC 


XL4'0' 


70 


GDISK 


DS 


OD 


70 




DC 


XL2'000' 


72 




DC 


XL2»0' 


74 




DC 


CL4«DSK7' 


78 




DC 


AL4 (0) 


7C 




DC 


XL4«0' 


80 


SDISK 


DS 


OD 


80 




DC 


XL2'190' 


82 




DC 


XL2'0» 


84 




DC 


CL4'DSK8' 


88 




DC 


AL4(0) 


8C 




DC 


XL4«0» 



Field Description, Contents, Meaning 
Device table entry for console 



Device table entry for A-disk 



Device table entry for B-disk 



Device table entry for C-disk 



Device table entry for D— disk 



Device table entry for E-disk 



Device table entry for F-disk 



Device table entry for G— disk 



Device table entry for S-disk 
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Hexadecimal 


Field 






Displacement 


Name 






90 


YDISK 


DS 


OD 


90 




DC 


XL2M9E' 


92 




DC 


XL2'0' 


9a 




DC 


CL4«DSK9' 


98 




DC 


AL4(0) 


9C 




DC 


XL4>0' 


AO 


ZDISK 


DS 


OD 


AO 




DC 


XL2'000« 


A2 




DC 


XL2»0» 


AH 




DC 


CL4»DSK0' 


A8 




DC 


AL4 (0) 


AC 




DC 


XL4'0' 


BO 


BEADER1 


DS 


OD 


BO 




DC 


XL2'00C' 


B2 




DC 


XL2»0' 


B4 




DC 


CL4'RDR1 ' 


B8 




DC 


AL4 (0) 


BC 




DC 


XL4'0« 


CO 


PUNCH1 


DS 


OD 


CO 




DC 


XL2'00D' 


C2 




DC 


XL2'0' 


CH 




DC 


CL4'PCH1" 


C8 




DC 


AL4(0) 


CC 




DC 


XL4«0' 


DO 


PBINTER1 


DS 


OD 


DO 




DC 


XL2'00E' 


D2 




DC 


XL2'0' 


D4 




DC 


CL4'PRN1" 


D8 




DC 


AL4 (0) 


DC 




DC 


XL4'0' 


EO 


BEADER2 


DS 


OD 


EO 




DC 


XL2'012' 


E2 




DC 


XL2'0' 


E4 




DC 


CL4'RDR2' 


E8 




DC 


AL4(0) 


EC 




DC 


XL4'0' 


FO 


PUHCH2 


DS 


OD 


FO 




DC 


XL2'013' 


F2 




DC 


XL2»0" 


F4 




DC 


CL4'PCH2' 


F8 




DC 


AL4 (0) 


FC 




DC 


XL4>0' 


100 


PRIl!lTEE2 


DS 


OD 


100 




DC 


XL2'010' 


102 




DC 


XL2«0' 


104 




DC 


CL4«PRN2' 


108 




DC 


AL4(0) 


IOC 




DC 


XL4'0« 


110 


TAPE1 


DS 


OD 


110 




DC 


XL2' 181* 


112 




DC 


XL2'0' 


114 




DC 


CL4'TAP1' 


118 




DC 


AL4(0) 


lie 




DC 


XL4«0« 


120 


TAPE2 


DS 


OD 


120 




DC 


XL2'182' 


122 




DC 


XL2'0' 


124 




DC 


CL4'TAP2' 


128 




DC 


AL4(0) 


12C 




DC 


XL4'0' 



Field Description, Contents, Meaning 
Device table entry for Y-disk 



Device table entry for Z-disk 



Device table entry for READER1 



Device table entry for PUMCH1 



Device table entry for PRINTER1 



Device table entry for READER2 



Device table entry for P0NCH2 



Device table entry for PR.INTER2 



Device table entry for TAPE1 



Device table entry for TAPE2 
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Hexadecimal Field 

Eisplaceraent Name Field Description, Contents, Meaning 



130 


TAPE3 


DS 


OD 


130 




DC 


XL2M83' 


132 




DC 


XL2'0' 


134 




DC 


CL4»TAP3» 


138 




DC 


AL4 (0) 


13C 




DC 


XL4'0' 


140 


TAPE4 


DS 


OD 


140 




DC 


XL2M84" 


142 




DC 


XL2'0' 


144 




DC 


CL4«TAP4' 


148 




DC 


AL4 (0) 


14C 




DC 


XL4'0« 


150 


DUMMY 


DS 


OD 


150 




DC 


XL2»000' 


152 




DC 


XL2'0« 


154 




DC 


CL4'XXXX' 


158 




DC 


AL4 (0) 


15C 




DC 


XL4»0' 


160 


TABEND 


DS 


OD 



Device table entry for TAPE3 



Device table entry for TAPE4 



Device table entry for DUMMY 
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DIOSECT 

CIOSECT: DISK I/O WORK AREA 

DIOSECT describes the fields used by DMSDIO as a work area when reading and writing 
actual blocks of data on CMS disks. 

The Disk I/O Work Area is pointed to by a V-constant in DMSNDC, and referenced indirectly 
by ADIOSECT (hex 660) in NDCON. 




8 
10 
18 
20 
28 
30 
38 
40 
48 
50 
58 
60 





lOOLD 








DIOCSH 








PWAIT 








1 




QQDSK1 1 




CCH1 








CCW1A 








CCW2 








CCW3 








RHCCW 








SEEKADR 
LASTCYL 1 




1 SECTKUM 1 






LASTHED 1 


A*1 


A*2 1 SENSE 







78 
80 
88 
90 



I 

SENCCW 
DOUBLE 
XRSAVE 



C8 




1 EHRCODE 1 


DO 


FEEERO 1 DIOFHEE | 

1 


D8 




SAVEADT 1 


EO 
1 




CCWX 1 


E8 




DIAGRET 1 lOCOMM | LASTREC | | 
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DIOSECT 



Hexadecimal 
Displacement 






10 
10 
18 
1C 
20 

24 



28 
30 
38 
40 
48 

50 

57 



62 
7C 

7C 

80 



88 



90 
CC 
CF 



Field 
Name 

DIOSECT DSECT 
lOOLD DC ID'O* 



DIOCSW 



DC 



ID'O* 





DS 


OF 


PHAIT 


DC 


CL8'WAIT' 




DC 


C'DSK-' 




DC 


F'O" 




DC 


F'0« 


QQDSK1 


DC 


F'O" 


QQDSK2 


EQU 


QQDSK1+2 


CCW Chain 





Field Description, Contents, Meaning 

I/O old PSW (from interrupt routine) 
CSH (from interrupt routine) 
PLIST to call DMSIOW 

Filled in to correct symbolic disk no. 



1st two bytes are always 

Halfword copy of 16th track disk— address 



CCW1 CCW 

CCW1A CCW 

CCH2 CCW 

CCW3 CCW 

BWCCW CCW 

SEEKADR DC 

SECTMUM DC 



X«07» , SEEKADR, X«40«, 6 

X'03' ,0,X«40' ,1 

X»31' ,SEEKADR + 2,X» 40* ,5 

X'08' ,*-8,0,1 

X'OO' ,*-*,X' 20' ,*-* 



Seek 

Seek or set sector 

Search 

TIC back to search 

Read or write data 



XL7'00' 
X'OO* 



58 


LASTCYL 


DC 


F«0' 


5C 


LASTHED 


DC 


F'O' 


60 


DEVTYP 


DC 


X'OO" 


61 


DIOFLAG 


DC 


X'OO' 



Seek/search info (1st 3 bytes are 0) 
Sector number 



Becomes last cylinder number used 
Becomes last head number used 



Bi:ts defined in DIOFLAG 
TOOBIG EQU X'04' 
WRTKF EQU X'02' 
QQTRK EQU X'01' 



A*1 01=2311, 08=2314, 09=3330 
A*2 RDTK/WRTK flag: 



Byte count > 800 
Writing first chain link 
Handling first chain link 



DIAGMUM EQU 



SENSB 



DC 
DS 



24 

XL24'00 
OF 



Number assigned by CP for DIAGNOSE I/O 
Sense information 



SENCCW CCW X'04' , SENSB, X'20' ,24 READ 24 BYTES SILI 
Jiscellaneous Storage 

DOUBLE DC ID'O' (Scratch area, for CVD use etc.) 

Keep the following three in order 



XRSAVE DS 15F 

DC AL3 (0) 
ERRCODE DC ALI (♦-*) 



Registers 0-14 saved here for RDTK/WRTK 
First 3 bytes of R15 error code 
Error code (in R15 at exit) 
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DIOSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



DO 
D4 

D8 



Keep the following two in order 



FHEERO DC 
DIOFREE DC 

SAVEADT DC 



F'O* 
F«0« 

F'O' 



No. doublewords of free storage (if any) 
Add. of free storage for buffer or CCW S 

Handy place for an ADT address 



DC 








EO 


CCHX 


CCW 


X'23' 


E8 


DIAGRET 


DC 


X'OO' 


E9 


lOCOMM 


DC 


X'OO' 


EA 


LASTREC 


DC 


X'OO' 



X'23' ,SECTNUH,X'40' , 1 



Set sector 



CPs DIAGNOSE return code if nonzero 

Set to read (06) or write (05) 

Number (1-14) of the last record processed 
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DM sec B 

2MSCCB: COMMAND CONTROL BLOCK 

DMSCCB describes all fields of a DOS Command Control Block (CCB) . This DSECT is used by 
DMSXCP to map the CCB specified by a user for an SVC (EXCP) . 




8 
10 
18 
20 
28 
30 
38 



CCBCNT I A*1 I A*2 
A*7 I CCBCCW 



CCBLDATB 



CCBRDCCW 



A*3 I A*t» I A*5 I A*6 
A*8 I CCBCSW 



CCBLCCHB 
A*9 I CCBFSCCW 



CCBHTCCH 



CCBLWCCW 



CCBNCCB 



Hexadecimal Field 
Displacement Name 





CCBST 


EQU 


♦ 




CCBD 


EQU 


* 





CCBLEH 


DS 


0CL16 





CCBCNT 


DS 


XL2 


2 


CCBERMAP 


DS 


OXLU 


2 


CCBCOM 1 


DS 


XL1 




Bits defined 


in CCBC0M1 




CCBWAIT 


EQU 


X'80« 




CCBEOF 


EQU 


X«40' 




CCBIOERR 


EQU 


X»20' 




CCBERROK 


EQU 


XMO' 




CCBRDC 


EQU 


X'08' 




CCBPDE 


EQU 


X'04' 




CCBDCV 


EQU 


X'02« 




CCBUERR 


EQU 


X'01' 



CCBC0M2 DS 



XL1 



liis defined in CCB COM 2 

CCBDCCNT EQU X'80' 

CCBTRKOV EQU X«40« 

CCBEOC EQU X'20« 

CCBDC EQU X»10» 

CCBHOEEC EQU X'08» 

CCBRETRY EQU X'04» 

CCBVEE EQU X»02» 

CCBCC EQU X'OI* 



Field Description, Contents, Meaning 

Start CCB 

Command control block 

Map of the DOS CCB 
Residual count 

Four tytes used to check errors 
A*1 Communications byte 1 



Traffic bit (set at CE) 
End— of-f ile 

Unrecoverable I/O error 
Accept unrecoverable error 
Return data checks 
Post at device end 
Return data check RD/CHK 
User error routine 

A*2 Communications byte 2 



Data check in count area 

Track overrun 

End of cylinder 

Data check 

No record found 

Retry no record found 

Verify error 

Command chain (retry) 
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Hexadecimal Field 
Displacenent Name 



Field Description, Contents, Meaning 



CCBCSW1 


DS 


XL1 K* 


=3 CSH status bit 1 


Bits def 


ined 


in CCBCSW1: 




CCBATTM 


~EQU 


X'80' 


Attention 


CCBSTMOD 


EQU 


X'40' 


Status modifier 


CCBCOE 


EQU 


X'20' 


Control unit end 


CCBBDSY 


EQU 


X'10> 


Busy 


CCBCE 


EQU 


X»08> 


Channel end 


CCBDE 


EQU 


X'04' 


Device end 


CCBUC 


EQU 


X»02' 


Unit check 


CCBUE 


EQU 


X'OI* 


Unit exception 



CCBCSH2 DS 



XL1 



A*U CSH Status bit 2 





Bits def. 


ined 


in CCBCSH2: 






CCBPCI 


EQU 


X'80' 






CCBILEN 


EQU 


X»40' 






CCBPROGM 


EQU 


X'20' 






CCBPEOT 


EQU 


X'10» 






CCBCHAND 


EQU 


X»08' 






CCBCHAHC 


EQU 


X'04> 






CCBICTRL 


EQU 


X«02' 






CCBCHAIN 


EQU 


X'01' 




6 


CCBSYMU 


DS 


0XL2 




6 


CCBSUCLS 


DS 


XLl 


A* 5 


7 


CCBSUNUM 


DS 


XL1 


A*6 


8 


CCBLIOBS 


DS 


XLl 


A*7 


9 


CCBCCW 


DS 


XLS 




C 


CCBC0M3 


DS 


XLl 


A*8 



CCBAPEND EQU X»40' 



D 


CCBCSW DS 


XL3 


10 


CCBLDATB DS 


A 


14 


CCBLCCWB DS 


A 


18 


DS 


F 


1C 


CCBUFLGS DS 


X 




Bits defined 


in CCBUFLGS 



A*9 



Program-controlled interrupt 
Incorrect length 
Program check 
Protection check 
Channel data check 
Channel control check 
Interface control check 
Chaining check 

Symbolic unit (SYSUN) 

U - LUB class 

N - LUB number within class 

Reserved for LIOBS 

Pointer to start of channel program 

Communication byte 3 

Appendage exit at interrupt 

Pointer to CSW or to appendage routine 
Address of last data block 
Address of last CCW block 
Reserved for IBM use 
I/O manager CCB flags 



CCBUEAIC EQU X«80' 

CCBUEAC EQU X'40' 

CCBURDCW EQU X'20' 

CCBRPS EQU X'10' 



Error analysis in control 
Error analysis complete 
Read CCH active 
RPS channel program candidate 

Save area for first CCW address 
Address of first read CCH 
Address of first write CCW 
Address of the last write CCW 
Reserved for IBM use 

CCBLWCCW chain field must have same displacement as FCBCHAIN in 
FCDB and BKPFSTBK in BKPHD. 



ID 


CCBFSCCW 


DS 


XL3 


20 


CCBRDCCW 


DS 


F 


24 


CCBWTCCW 


DS 


F 


28 


CCBLWCCW 


DS 


F 


2C 




DS 


3F 



38 
3C 



CCBHCCB 



DS 
DS 



Address of next CCB block 
Reserved for IBM use 
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DOSSECT 

POSSECT: DOS SIMULATION CONTROL BLOCK 

DOSSECT Simulates the CMS File Control Block (FCB) in the CMS/DOS environment. DOSSECT 
is invoked by the DOSCB macro. 

The DOS Simulation Control Blocks are chained together. The DOSFIRST field (hex 4F0) 
points to the first DOSCB in the chain or if no chain exists contains zero. 






DOSNEXT 


1 


DOSCBID 1 


8 




DOSDD 




10 




DOSOP 




18 




DOSDSNAM 




20 




DOSDSTYP 




28 


DOSDSMD 1 DOSITEM | 


DOSBUFF 1 


30 


DOSBYTE 


1 DOSFORM 1 DOSCOUT | 


38 


DOSREAD 


1 A*1 


1 A*2 1 DOSBLKSZ | 


40 




DOSWORK 




48 


A*3 1 A*4 1 A*5 1 


A*6 1 


DO SO SF ST 1 


50 


DOSOSDSN 


1 


DOS VOL TB 1 


58 


DOSEXTTB 


1 DOSSENSE 1 A*7 | A*8 | 


60 


DOSBUFSP 


1 


DOSUCNAM 1 


68 


DOSUCNAM (cont.) 


1 








DOSSAVE 





80 I 



I A*9 I A*10 I 
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Hexadecimal 
Displacement 



Field 
Name 

DOSmiT DS 



OX 



Sits defined in DOSINIT 

DOSDDCAT EQU X'08» 

DOSPERM EQU X'04' 

DOSJCAT EQU X'02' 

DOSUCAT EQU X'01' 






DOSNEXT 


DS 


A 




4 


DOSCBID 


DS 


CL4 




8 


DOSDD 


DS 


CL8 




10 


DOSOP 


DS 


CL8 




18 


DOSTAPID 


DS 


OX 




18 


DOSDSHAM 


DS 


CL8 




20 


DOSDSTYP 


DS 


CL8 




28 


DOSDSHD 


DS 


CL2 




2A 


DOSITEM 


DS 


H 




2C 


DOSBUFF 


DS 


F 




30 


DOSBYTE 


DS 


F 




3a 


DOSFORM 


DS 


CL2 




36 


DO SCOUT 


DS 


H 




38 


DOSREAD 


DS 


F 




3C 


DOSDEV 


DS 


X 


A*1 




DOSDUM 


EQU 









DOSDSK 


EQU 


2 




3D 


DOSTAPMD 


DS 


X 


A* 2 


3E 


DOSBLKSZ 


DS 


H 




40 


DCSHCRK 


DS 


D 




48 


DOSYSXXX 


DS 


OH 




48 


DOSSYS 


DS 


IX 


A*3 


49 


DOSXXX 


DS 


IX 


A*4 


4A 


DOSEXT 


DS 


IX 


A*5 


4B 


DOSEXTCT 


DS 


IX 


A*6 


4C 


DOSOSFST 


DS 


F 




50 


DOSOSDSN 


DS 


F 




54 


DOSVOLTB 


DS 


F 




58 


DOSEXTTB 


DS 


F 




5C 


DCSSENSE 


DS 


H 




5E 


DOSVOLNO 


DS 


X 


A*7 


5F 


DOSEXTNO 


DS 


X 


A*8 


60 


DOSBUFSP 


DS 


F 




64 


DOSUCHAM 


DS 


CL8 




6C 


DOSSAVE 


DS 


6F 




84 


DOSEXTCX 


DS 


IX 




85 


DOSTYPE 


DS 


1C 




86 




DS 


H 




88 


DOSEND 


DS 


OD 






DOSEMSIZ 


EQU 


(* DOSSECT) /8 



Field Description, Contents, Meaning 
DOSCB flag byte 



User catalog data set 
Permanent control block 
Search VSAM job catalog 
Search VSAM user catalog 

AL3 (next DOSCB) 

DLBL to distinguich from CMSCB 

Data definition name 

CMS operation 

Tape identification 

Data set name 

Data set type 

Data set mode 

Item (record) number 

A (input/output buffer) 

Size of buffer (data count) 

File format: fixed/variable 

Records per CMS physical block 

Number of bytes actually read 

Device type code 

Dummy device 

Disk 

Tape mode set to save 

Block size 

Work area 

Logical unit for CMS/DOS 

SYS/PROG unit: X»00'=SYS, X'01'=PROG 

Number from 000-255 assoc with unit 

Number DOS extents left to process 

Current DOS extent 

Pointer to OS FST 

Pointer to OS dsname block 

A (volume ID table) -VSAM multivolume data set 

A (extent table) for VSAM data space 

I/O sense data 

No. volumes (entries in DOSVOLTB) 

No. extents (entries in DOSEXTTB) 

Size of VSAM I/O buf f er (s) 

VSAM user catalog ddname 

Temp save for re-entrant code 

Current extent (used by DMSXCP) 

Data set type (SAM=S, VSAM=A) 

Reserved for IBM use 

End address of this block 

Size of block in doublewords 
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EDCB 



EDCB: EDIT CONTROL BLOCK 

EDCB is used by all CMS EDIT modules to define common free storage control blocks. It is 
initialized by DMSEDX, the EDIT bootstrap routine. 



01 






81 

I 

10| 



18| 



I 



20 I 






28| 



FNAHE 
FTYPE 
FMCDE I A*1 I A*2 | TRONCOL | ZONEI 
ZGHE2 I VEBC0L1 | VERC0L2 | VERLEN 
SCRBUFAD I CARDINCR 

LWSTART I LIMINCR | A*3 | A*4 | 



TABS 



H8 






SEQNAME 


1 


A*5 1 




PADBUF 


1 


50 




PA 


DBUF (cont.) 





PTR1 


1 







58 








60 






PTH2 








PTR3 
CORITEM 
FPTR 
AFSTFNRD 




68 
70 







AEXTEMD 

SPARES 

ITEM 










78 













80 








FREELEN 


FREEAD 




88 


EDBET 
MAINAD 








EDMSK 




90 


REG 
















AUTO 





C8| 

I 

DO I 



CARDNO 



LMCURR 



COUNT 



D8| 



I- 



LMTEMP 



BUFFL 



EO 



BUFFA 



CANSAV 
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1081 



DUALNOS 



1F8 



2001 



DECIMAL 



REGSAVE 



HALF 



-I 



210 
218 
220 



REPCNT 




"I 



260 
268 
270 
278 
280 
288 
290 
298 
2A0 
2A8 
2B0 
2B8 
2C0 
2C8 
2D0 



XYCNT 



AEDLIN 



TIN 

I A*6 I 
TOOT 

I A*7 I 
lOLIST 
lOID 



CHNGNUM 



lOMODE I ///////////// 1 



lOAD 



I RECS 



ALTLIST (cont.) 
EDHOEK (cont.) 

ALTMODE (cont.) 



ALTLIST 
EDWOHK 



ALTMODE 



I 



2F0 



2F8| 



I 



300 1 



STACKAT 



STACKAT (cont.) 
STACKATL 



ATTN 



158 IBM VM/370: Data Areas and Control Block Logic 



EDCB 



308 
310 
318 
320 
328 
330 
338 
3M0 
348 
350 
358 
360 
368 
370 
378 
380 
388 
390 
398 
3A0 



STBTNO 



AIMCORE 



ATTN (cont.) I 

ATTNLEN | REHLIST 

RESLIST (cont.) I RPLIST 

RPLIST 

I INCRNO 

I FSIZE 

DECLTH 
RANGE 
CANCCW 

I A* 9 I A* 10 I 

BUFFLOC I ALINELOC 

ANUMLOC I AFLAGLOC 

AUTOCNT I AUTOCURR | CHNGCNT | DITCNT 

EDCT I LINELOC I NUMLOC I SAVCNT 



A*8 I 



WRCOUNT 



TVERC0L1 I TVERC0L2 | A*11 | A*12 | AREA 

AREA (cont.) | A*13 | A*14 

CHNGMSG 



CMODE 



FILEMS 



3B8 



I A*15 I A*16 I A*17 I 
JAR 



4081 



I 



NEWNANE 



4101 



I 



4181 

I 
4201 



NEWTYPE 



NEHMODE 



SERSAVE (cont.) 



SERSAVE 



SERTSEQ 



I A*18 I A*19 



Section 2. CMS Data Areas and Control Blocks 159 



EDCB 



4281 



TEMPTAB 




I A*20 I A*21 I A*22 | A*23 | 
SCLNO (cent.) 
I 



SCLNO 
I A*2a I //////I 



'»D8| I //////// 1 
I 



YAREA 



— I 



560 



568 



5701 

I 
5781 




6001 

I 

608 1 LINENO (cont.) 

I 



LINENO 



I A*26| 
LINE 



-I 



6A8| 



I 



I A*27 I 



TABLIN 



-I 
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EDCB 



Hexadecimal 


Field 








Displacement 


Name 


DS 


OF 






BLOC 


EQU 


♦ 







FNAME 


DS 


CL8 




8 


FTYPE 


DS 


CL8 




10 


FMODE 


DS 


CL' • 




12 


FV 


DS 


CL1 


A*1 


13 


CASESW 


DS 


CL1 


A*2 


14 


TBUNCOL 


DS 


H 




16 


Z0NE1 


DS 


H 




18 


Z0NE2 


DS 


H 




U 


VERC0L1 


DS 


H 




1C 


VERC0L2 


DS 


H 




IE 


VERLEN 


DS 


H 




20 


SCRBUFAD 


DS 


F 




24 


CARDINCR 


DS 


F 




28 


LMSTART 


DS 


H 




2A 


LMINCR 


DS 


H 




2C 


FLAG 


DS 


CL1 


A*3 


2D 


FLAG2 


DS 


CL1 


A*4 


2E 


TABS 


DS 


26AL1 






ENDTABS 


EQU 


* 




48 


SEQSAME 


DS 


CL3 




4B 


PADCHAR 


DS 


CL1 


A*5 




EHDBLOC 


EQU 


* 





Field Description, Contents, Meaning 



Filename 

Filetype 

Filemode 

Record format 

Case setting 

Truncation column 

Initialized to first column 

End zone 

Verify column 1 

Verify column 2 

Verify length 

Addr of GETMAIN buffer 

Increment for serialization 

Where line nums start 

Auto, line nums default incr. 

Flags for line monitoring 

Misc. flags 

Maximum of 25 tabs is allowed 

End of tabs 

Name, if any, for serialization 

'0' on right, • • on left 

End of BLOCX 



^2t§- ;ElJ?iyi imst remain directly behind PADCHAR 



4C 


PADBUF 


DS 


9C 




PTRCONS 


EQU 


* 


58 


PTH1 


DS 


2F 


60 


PTR2 


DS 


F 


64 


PTR3 


DS 


F 


68 


AEXTEND 


DS 


F 


6C 


CORITEM 


DS 


F 


70 


SPARES 


DS 


F 


74 


FPTR 


DS 


F 


78 


ITEM 


DS 


F 


7C 


AFSTFNHD 


DS 


F 


80 


FREELEW 


DS 


F 


84 


FREEAD 


DS 


F 


88 


EDRET 


DS 


F 


8C 


EDMSK 


DS 


F 


90 


HAINAD 


DS 


F 




EPTRCOIS 


EQU 


* 


94 


AUTOREG 


DS 


13F 


C8 


CARDHO 


DS 


F 


CC 


COUNT 


DS 


F 


DO 


LMCURR 


DS 


2F 


D8 


LMTEMP 


DS 


F 


DC 


BU^FL 


DS 


F 


EO 


BUFFA 


DS 


F 


E4 


CANSAV 


DS 


9F 


108 


DUALNOS 


DS 


CL240 


1F8 




DS 


OD 


1F8 


DECIMAL 


DS 


F 


1FC 


HALF 


DS 


F 


200 


REGSAV 


DS 


5F 


214 


REGSAVX 


DS 


3F 



Pad characters 

Same as PTRCONS in DMSEDI 

•TOP' pointer (for dummy top line) 

Current line pointer 

Pointer to bottom line 

Pointer to end of used area of storage 

Number of bytes for one line in storage 

Number of spare lines 

Free-list pointer 

Item length 

Anchor for stacked lines upon entry 

Length of free storage 

Address of free storage 

CMS return address 

DMSSCR edit mask 

LOADSYS adr; if LOADMOD 

Autocheck save area 
Save area for sequence number 
Number of chars in EDLIN 
Prompter current line no. 
WRTYPE/LINEMODE save area 
Length of string (EDC) 
Address of string (EDC) 
Register save (EDC) 
Temp string buffer (EDC) 

Used by DECBIN S BINDEC 
BINDEC only edits 4 chars 
Register save area 
Register save area 
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EDCB 



Bexadecimal 


Field 






Dlsplacenent 


Name 






220 


REPCHT 


DS 


F 


224 


SAVEAR 


DS 


15F 


260 


XYCNT 


DS 


F 


264 


CHNGNUM 


DS 


F 


268 


TIN 


DS 


OF 


268 




DS 


CL8 


270 




DS 


X 


271 


AEDLIN 


DS 


3X 


274 


CASEREAD 


DS 


C 


275 




DS 


3X 


278 


TOUT 


DS 


OF 


278 




DS 


CL8 


280 




DS 


X 


281 




DS 


3X 


284 




DS 


C 


285 


TYPFLG 


DS 


X 


286 




DS 


H 




CEBIT 


EQD 


X'80' 


288 


lOLIST 


DS 


OF 


288 




DS 


CL8 


290 


10 ID 


DS 


CL8 


298 




DS 


CL8 


2A0 


lOMODE 


DS 


CL2 


2a2 




DS 


H 


2A4 


lOAD 


DS 


CL4 


2A8 




DS 


F 


2AC 




DS 


CL2 


2AE 


EECS 


DS 


H 


2B0 




DS 


F 


2B4 


ALTLIST 


DS 


OF 


2B4 




DS 


CL8 


2BC 


EDWORK 


DS 


CL8 


2C4 




DS 


CL8 


2CC 


ALTBCDE 


DS 


CL8 


2D4 




DS 


CL8 


2DC 




DS 


CL8 


2E4 




DS 


CL2 


2E6 




DS 


CL6 


2EC 




DS 


8X 


2F4 


STACKAT 


DS 


OF 


2F4 




DS 


CL8 


2FC 




DS 


CL4 


300 


STACKATL 


DS 


F 


304 


ATTN 


DS 


OF 


304 




DS 


CL8 


30C 




DS 


CL4 


310 


ATTNLEN 


DS 


F 


314 


RENLIST 


DS 


OF 


314 




DS 


CL8 


31C 


HPLIST 


DS 


CL12 


328 


STRTNO 


DS 


F 


32C 


INCRNO 


DS 


F 


330 


AINCORE 


DS 


F 


334 


FSIZE 


DS 


F 


338 


DECLTH 


DS 


D 


340 


RANGE 


DS 


D 


348 


CANCCW 


DS 


D 


350 


CMDBLOK 


DS 


X 


351 


BUFAD 


DS 


3X 


354 


FIG 


DS 


X 


355 


CTL 


DS 


X 



Field Description, Contents, Meaning 

FOR count 

DMSSCR save area 

X or Y execution count 

No. of lines to change 

HAITRD PLIST 

•HAITRD' 

M' for console no. 1 

A(EDLIN) 
A*6 Default to uppercase 

Length put here 

PLIST for call to DHSCWR 

'TYPLIN' 

'1 • for console no. 1 

Address goes here 

•B' for black ribbon 
A*7 X'20' max length override 

Length goes here 

Suppress carriage return 

Initial for STATE of source 

STATE 

EDIT 

CMSUT1 

A1 

Item number for RDBUF 

f««:««i Don't allow •*'s 

133 (XINSCRIPT use LINE) 

F/V and null record indicator 

1 (XINSCRIPT 1 line at a time) 

Number of bytes read from RDBUF 

RENAME 

EDIT 

CMSUT1 

A1 

New filename 

New filetype 

New filemode 

New filemode 

FF fence 

PLIST to stack FIFO 

ATTN 

FIFO 

Length and address of line to stack 

ATTN 

LIFO 

Length and address of line to stack 

RENUM PLIST 

RENUM 

Fileid 

Starting number 

Increment number 

In-storage copy address 

Record length 

DMSSCR work area 

Message data areas 

Cancel screen CCW 
A*8 X19 

Buffer address 
A*9 CCH flag 
A*10 Control byte 
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EDCB 



Hexadecimal Field 
Displacement Name 



356 
358 
358 
35C 
360 
364 
368 
36A 
36C 
36E 
370 
372 
374 
376 

37A 
37C 
37D 
37E 
386 
387 
388 
39C 
3A0 
3BA 
3BB 
3BC 
3BD 
U09 
411 
419 
41B 
423 
426 
427 
428 
442 
443 
444 
445 
446 
44E 
450 
452 
4DA 
4DC 
563 
564 
566 
567 
568 
570 
578 
57F 
606 
60B 
60C 
6AC 
6AD 
750 



WRCOUNT DS 
GIOPLIST DS 
BUFFLOC DS 
ALIMELOC DS 
ANUMLOC DS 
AFLAGLOC DS 
AUTOCNT DS 
AUTOCUBIR DS 
CHNGCNT DS 
DITCHT 
EDCT 
LINELGC 
NUMLOC 
SAVCMT 
TVERC0L1 DS 
TVEEC0L2 DS 
ALCHAR1 DS 
ALCHAR2 DS 
AREA DS 
BYTE DS 
CHNGFLAG DS 
CHMGMSG DS 
CMODE 
FILEMS 
FLAGLOC 
GETFLAG 



DS 
DS 
DS 
DS 
DS 



DS 
DS 
DS 
DS 



HOLDFLAG DS 



JAR 

NEHNAHE 

NEWTYPE 

NEHMODE 

SERSAV 

SERTSEQ 

SERTSH 

SIGNAL 

TEMPTAB 

UTILFLAG DS 

XYFIAG DS 

SCRFLGS 

SCRFLG2 

SCLNO 

TWITCH 

XAREA 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 



YAREA 



BIANK1 

XXXCHD 

SAVCHD 

INVLD 

EDLIN 

LINENO 

BIANK2 

LINE 

6IANK3 

TABLIN 

EDCBEND 

EDCBLTH 



DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 

CNOP 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

DS 

EQU 



H 

OF 
F 
F 
F 
F 
H 
H 
H 
H 
H 
H 
H 
H 
H 
H 
C 
C 

CL8 
X 
X 

CL20 
CL4 
CL26 
X 
X 
X 

(ENDBLOC- 
CL8 
CL8 
CL2 
CLB 
CL3 
X 
X 

(ENDTABS- 
X 
X 
X 
X 

8C 
X 
H 

CL135 
H 
CL135 

6,8 

X 

X 

CL8 

CL8 

CL7 

CL135 

CL5 

X 

CL160 

X 

CL160 

OD 

(EDCBEND 



Field Description, Contents, Meaning 

Write count 

DMSSCR PLIST for DMSGIO 

Buffer location 

A(LINELOC) 

A (NUMLOC) 

A (FLAGLOC) 

Autosave parameter 

Current modification count 

Temp area for change 

No. lines stacked by ditto 

Next char in EDLIN 

Display line number 

Display count 

Spot to save count for ditto 

Temporary area for verify col 1 

Temporary area for verify col 2 
A*11 Temporary byte used by ALTER 
A*12 Temporary byte used by ALTER 

EDIT instruction work 
A*13 Temporary byte (used by GET ) 
A*14 Flag for change 

Lines changed msg 

Filemode for MODECHK routine 

Retry message 
A*15 Flag for DMSGIO 
A* 16 Flag for GETFILE 
A*17 DMSSCR SCRFLGS 
•BLOC) AL1 Save area for preserve 

Name area for FILE & SAVE 

Type area for FILE & SAVE 

Mode area for FILE & SAVE 

Serial no. save area 

Temporary byte serial area 
A* 18 Temporary byte used by serial 
A*19 Signal between routines 
TABS)AL1 Temporary spot for new tabs 
A*20 DMSSCR utility flags 
A*21 X/Y active flag 
A*22 Screen function flags 
A*23 More screen function flags 

Save LINEMODE seq no 
A*24 Location flags 

X length and request buffer 

(Same length as EDLIN) 

Y length and request buffer 

(Same length as EDLIN) 



Alignment 
More alig 

A*25 Blank for 
EDIT toke 
Spot to s 
?EDIT: 
Terminal 
Line no. 

A*26 Blank for 
Current 1 

A*27 Blank for 
Output fr 



for XXXCHD 
nment 

clearing XXXCWD 
n buffer 
ave XXXCWD 

input buffer 
for typeout 

clearing line 
ine is held here 

clearing TABLIN 
om spread 



-EDCB) Length of EDCB 
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ERDSECT 



ERDSECT: ERROR HANDLING ROOTINE DSECT 



ERDSECT describes the fields in a work area used for giving responses and error messages 
via the DHSERR or LINEDIT macros. 

A V-constant in DMSERR points to the DMSERT DSECT. 





8 

10 

18 



ERT1 

BRT2 

ERT2 (cont.) 

ERSAVE 



58 I 



ERPAS13 






AO 


A*1 


1 A*2 1 ERPTXA 1 ERPHDR | 


A8 


ERPNUM 1 A*3 1 ERPCS 1 ////////////// 1 


BO 


EHPBFA 1 ERPSBA | 


B8 




ERSBD 1 A*4 1 A*5 | ERSSZ | 


CO 


E RSSZ (cont . ) | ////////////////////////////////////////// 1 


C8 


///////////////////////////////////////////////////////I 


DO 
D8 




ERMESS 1 ERSECT | ERNUM | 
1 A*6 1 A*7 1 1 


EO 




ERTEXT 1 



I — 



160 I 



168 






ERTPLA 



ERTPL 

I ERTPLL 
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ERDSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



A1 



B8 
BC 



]?0£JS hL§^ ^2E 2MSERR E^ror HSfiSlliM Routine 




8 


ERT1 DS 
ERT2 DS 


D 
2D 


18 


Save Area 
ERSAVE DS 


16F 




Reconstructed 


PLIST Area 


58 
AO 


ERPAS13 DS 
ERPF1 DS 


18F 
B 




Bits defined : 
ERFITX EQU 
EEF1HD EQU 
ERF1BF EQU 
ERF1SB1 EQU 
ERF1SBN EQU 


in ERPF1 
X'80' 
X'40' 
X'20' 
X»10« 
X«08' 



Doubleword workspace 

Two doublewords workspace 



ERPF2 



DS 



B 



Bits defined in EREIi 

ERF2CM~ EQU X»80' 

ERF2DT EQU X'UO' 

EHF2DI EQU X»20' 



Pass this save area in reg 13 
A*1 First flag byte 



Text address in PLIST 

Header in PLIST 

Buffer address in PLIST 

One substitution 

Multiple substitutions (>1) 

A*2 Second flag byte 



Blank compression wanted 
Dot at end of line wanted 
HALT=YES wanted 



Last 3 Bits Indicate DISP Field 





ERF2ER 


EQU 





Errmsg 




ERF2TY 


EQU 


1 


Type 




ERF2SI 


EQU 


2 


SIO 




ERF2110 


EQU 


3 


None 




ERF2PR 


EQU 


^ 


Print 




ERF2CP 


EQU 


5 


CPCOMM 


A4 


ERPTXA 


DS 


A 


Text address 


A8 


ERPHDR 


DS 


0CL6 


Error message header 


A8 


ERPNUM 


DS 


H 


Message number 


AA 


EEPLET 


DS 


C A*3 


Message letter 


AB 


ERPCS 


DS 


CL3 


CSECT name 


BO 


ERPBFA 


DS 


A 


Buffer address (for BUFFA) 




Fields 


for S ub 


stiijiiioiss 





ERPSBA 

ERSBD 
ERSBF 



DS 

DS 
DS 



Jits defined in ERSBF 
ERSFLST EQU X»80» 
ERSFA EQU X«40' 
ERSFL EQU X«20« 



Pointer to first (next) group of 

substitution parameter in 

original PLIST 
Data addr/value or current 

substitution parameter 
A*4 Flag byte for current substitution 

parameter 



The last substitution parameter 
A— type option 
Length specified 
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ERDSECT 



Hexadecimal Field 
Displacement Name 



BD 



CO 



C8 
DO 
D3 
D6 
D9 
DA 

DB 



Field Description, Contents, Meaning 



li^st 3 Bits Give Option Tjype 



EHSFH 


EQO 





HEX or 


HEXA 


ERSFD 


EQU 


1 


DEC or 


DECA 


EHSFC 


EQU 


2 


CHARA 




ERSFHa 


EQU 


3 


HEX4A 




EBSFC8 


EQU 


4 


CHAR8A 





ERSBL 



ERSSZ 



DS 



DS 



A*5 Byte length for current substitution 
parameter 

Size of substitution field 
(# dots - 1) 



Message Construction Area 



ERMESS 

ERSECT 

ERNUH 

ERLET 

ERBL 

ERTSIZE 

ERTEXT 



DS 

DC 

DC 

DC 

DC 

DC 

EQU 

DS 



D 

C'DMS' 

C'HMH' 

C'NHN' 

C'L' 

C • 

13 

(ERTSIZE+1)C 



A*6 
A*7 



Need doubleword before text 

First letters of header 

DSECT name 

Message number 

Message level letter 

Blank 

Maximum text size 

Message text area 



TYPLIN PRINTER PLIST Construction Area 

160 DS OF 

160 ERTPL DC CLB'TYPLIN' 

168 EBTPLA DS AL1 ( 1) , AL3 ( ERMESS) 

Message text address 
16C ERTPLL DS C«R',AL3 Message length 
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EXTSECT 



EXTSECT: EXTEENAL IHTEEfiUPT WORK AREA 

EXTSECT describes the fields in the External Interrupt work area referenced by DHSITE, 
EXTSECT is pointed to by the AEXTSECT field (hex 6A0) in NUCON. 



EXSAVE 



40 
48 
50 
58 
60 
68 



TYPLIST 
TIMCCH 
TIMCHAR 
SCAH 

I 
EXSAVE1 



TIMINIT 



A8 
BO 
B8 
CO 
C8 



JRO 



STIMEXIT 



EXTPSW 



SAVEXT 
EXTRET 



JR1 



I A * 1 I /////////////////// 1 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



Storage for Timer Interrupt 




40 
48 
4C 
50 
58 
64 



EXSAVE 


DS 


TYPLIST 


DC 


TIMCCW 


DC 




DC 


TIMCHAR 


DC 


SCAH 


DC 


TIMINIT 


DC 



Saved external old PSW 
PLIST to type BLIP character 



16F 

CLB'TYPLIN" 

A (TIMCHAR) 

C'B',X'81»,AL2(1) 

X'FF' ,XL7'00' BLIP character (s) 

XL12'00» Saved CSH/CAH 

A (2000000/13) Value to set timer = 2 seconds 



Storage for External (Other Than Timer) Interrupt 



68 


EXSAVE1 


DS 


16F 


A8 


EXTPSW 


DC 


X'80000000 


AC 




DC 


A(0) 


BO 


SAVEXT 


DC 


F'O' 


B4 




DC 


V (DMSEBG) 



Saved registers 
Filled-in PSW 

Transfer address for external interrupt 
Address in DEBUG for external interrupt 
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EXTSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



Storage for External InterruEt Set D£ Bi Tra£ 



B8 


EXTRET 


DS 


D 


CO 


JRO 


DC 


F'22' 


CH 


JR1 


DC 


A(0) 


C8 


STIMEXIT 


DC 


«(0) 


CC 


EXTFLAG 


DC 


X'OO* 




REALTIMR 


EQU 


X'80' 



CD 



DC 



AL3 (0) 



A*1 



Saved external old PSW 

22 doublewords for floating point 

registers and user save area 
Address of free storage 

Address of STIMER exit routine 



Real timer indicator 
Reserved for IBM use 
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EXTUAREA 



EXTUAREA: EXTERNAL OSER AREA 

EXTOAREA is a 96-byte user area generated by the CMSAVE macro. The pointer to the user 
area is passed to the user via register 13. The field OSAVEPTR (hex 8C) in CMSAVE also 
points to the user area. 



I 



HO 



I- 



GRS 
FRS 



60 I 

I 

68 I 



UEXTPSWO 
USERAREA 



Hexadecimal Field 
Displacement Name 







DS 


OD 





GRS 


DS 


16F 


40 


FRS 


DS 


4D 


60 


UEXTPSWO 


DS 


ID 


68 


USERAREA 


DS 


18F 


BO 


USEREAND 


DS 


OF 



Field Description, Contents, Meaning 



Registers at time of interrupt 
Floating-point registers at interrupt 
External old PSW at interrupt 
User save area 
End user area 
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FCBSECT 



FCBSECT: SIMULATED OS CONTROL BLOCKS 

FCBSECT consists of the CMS File Control Block (FCB) (used for file management under 
CMS) , the simulated OS Job File Control Block (JFCB) , Input/Output Block (lOB) , and Data 
Extent Block (DEB). FCBSECT is invoked via the CMSCB macro. 




8 
10 
18 
20 
28 
30 
38 
10 
48 
50 
58 
60 
68 
70 
78 
80 
88 
90 
98 
AO 
A8 
BO 



r ■- ■■ - ■■■ '■ 

1 FCBNEXT 1 FCBPROC 

1 FCBDD 





1 FCBOP 




1 FCBDSNAM 




1 FCBDSTYP 




1 FCBDSMD 1 FCBITEM | FCBBOFF 




1 FCBBYTE 1 FCBFORM | FCBCOOT 
1 FCBREAD 1 A*1 | A*2 | FCBXTENT 


1 FCBRECL 1 A*3 | A*4 | FCBMEMBR 




1 FCBMEMBR (COnt.) | FCBOSFST 




1 FCBOSDSN 1 FCBR13 
1 FCBKEYS 1 FCBPDS 


~ 


1 JFCBMASK 




1 JFCBCRDT 1 JFCBXPDT | A*5 | 


A*6 


1 A*7 1 A*8 1 JFCBUFL | A*9 | A*10 | | 


A* 11 


1 JFCLIMCT(Cont.) 1 JFCDSORG | A*12 | A*13 | JFCBLKSI 


1 JFCLBECL 1 A*14 | A*15 | 

1 DEBTCBAD | SEBSAV 





1 DEBOFLGS | DEBOPATB 
1 lOBNXTAD 1 lOBECB 





1 DEBDCBAD | lOBECBPT 




1 lOBCSW 




1 lOBSTART 1 lOBDCBPT 





Format of location X'24' for console device: 



20 



28 I FCBIOOUT (Cont. ) | 

30 I A*16 I A*17 I A*18 | FCBIOCNT | 



FCBIOOUT 
FCBIOBUF 



I 
— I 
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FCBSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



FCBINIT DS 



OX 



Bits defined in FCBINIT 





FCBOPCB 


EQU 


X'08' 




FCBPERM 


EQU 


X'04' 




FCBBATCH 


EQU 


X'02' 




FCBCATML 


EQU 


X'01' 




FCBOS 


EQU 


XMO* 




FCBDOSL 


EQU 


X'20' 





FCBNEXT 


DS 


A 


4 


FCBPROC 


DS 


A 


8 


FCBDD 


DS 


CL8 


10 


FCBOP 


DS 


CL8 


18 


IHAJFCB 


DS 


OD 


18 


JFCBDSNM 


DS 


OX 


18 


FCBTAPID 


DS 


OX 


18 


FCBDSNAM 


DS 


CL8 


20 


FCBDSTYP 


DS 


CL8 




FCBPBPU 


EQU 


FCBDSTYP+U 


28 


FCBDSMD 


DS 


CL2 


2A 


FCBITEM 


DS 


H 


2C 


FCBBUFF 


DS 


F 


30 


FCBBYTE 


DS 


F 


34 


FCBFORM 


DS 


CL2 


36 


FCBCOUT 


DS 


H 


38 


FCBREAD 


DS 


F 


3C 


FCBDEV 


DS 


X A*1 




Bits def; 


ined 


in FCBDEV 



3D 
3E 
40 
42 
43 
44 
4C 
50 
54 
58 
5C 
60 
68 
6B 
6E 
6F 
70 
71 
71 
72 



FCBDUM EQU 

FCBPTR EQU 4 

FCBRDR EQU 8 

FCBCON EQU 12 

FCBTAP EQU 16 

FCBDSK EQU 20 

FCBPCH EQU 24 

FCBCRT EQU 28 



FCBMODE DS 
FCBXTEHT DS 
FCBRECL DS 
ICBIOFLG DS 
FCBDCBCT DS 
FCBMEMBR DS 
FCBOSFST DS 
FCBOSDSN DS 
FCBR13 
FCBKEYS 
FCBPDS 
JFCBMASK DS 
JFCBCRDT DS 
JFCBXPDT DS 
JFCBIND1 DS 
JFCBIHD2 DS 
JFCBUFNO DS 
JFCBFTEK DS 
JFCBFALN DS 
JFCBUFL DS 



DS 
DS 
DS 



X 

H 

H 

X 

X 

2F 

F 

F 

F 

A 

A 

8X 

3C 

3C 

X 

X 

X 

X 

X 

H 



A*2 



A*3 
A*4 



A*5 
A*6 
A*7 

k*8 



Initialization flag bytes 



OPEN acquired this CMS block 
Permanent control block 
Special batch data set 
Concatenated MACLIB data set 
FCB for OS formatted disk 
Concatenated DOSLIB data set 

AL3 (next CMSCB) 

A (special processing routine) 

Data definition name 

CMS operation 

Job File Control Block 

44 bytes, data set name 

Tape identification 

Data set name 

Data set type 

Printer/punch command list 

Data set mode 

Item identification number 

A (input/output buffer) 

Data count 

File format: fixed/variable records 

Records per CMS physical block 

Number of bytes actually read 

Device type code 



Dummy device 

Printer 

Reader 

Console terminal 

Tape 

Disk 

Punch 

CRT 

Mode: 1,2,3,4,5 

Number of items in extent 

DCB LRECL at open time 

I/O Flags 

No. of DCB's using this FCB 

OS PDS member name 

Pointer to OS dsname 

Pointer to OS dsname block 

Save area vector R13 

A(DDS in-storage key table) 

A (PDS in-storage directory) 

Various mask bits 

Data set creation date (YDD) 

Data set expiration date (YDD) 

Indicator 1 

Indicator 2 

Number of buffers 

Buffering technique 

Buffer alignment 

Buffer length 
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FCBSECT 



Hexadecimal 
Gisplacement 

74 
75 
76 
77 
7A 
7A 
7C 
7C 
7D 

7E 
80 
80 
82 



Field 
NaiDe 



83 



84 
84 
88 
88 
8C 
90 

98 



98 
9C 
AO 
AO 
AO 
A4 



A4 
A8 

A8 



JFCEROPT 


DS 


X 


JFCKEYLE 


DS 


X 




DS 


X 


JFCLIMCT 


DS 


3X 


FCBDSORG 


DS 


OX 


JFCDSORG 


DS 


2X 


FCBRECFM 


DS 


OX 


JFCRECFM 


DS 


X 


JFCOPTCD 


DS 


X 


JCBBLKSZ 


DS 


OH 


JFCBLKSI 


DS 


H 


FCBLRECL 


DS 


OH 


JFCLRECL 


DS 


H 


FCBIOSW 


DS 


X 


ii£s defined 


in FCBIOSW 


fcbclose" 


EQU 


X'80« 


FCBCLEAV 


EQU 


X'40' 


FCBPROCC 


EQU 


X'20' 


FCBPROCO 


EQU 


XMO' 


FCBCASE 


EQU 


X'08" 


FCBPVMB 


EQU 


X«04« 


FCBIOWR 


EQU 


X'02' 


FCBIORD 


EQU 


X'OI" 



FCBI0SH2 DS 



IX 



Bits defined in FCBI0SH2 



FCBMVPDS 


EQU 


X'OI* 


FCBMMV 


EQU 


X'02' 


DEBLNGTH 


DS 


OX 




DS 


F 


IHADEB 


DS 


OD 


DEBTCBAD 


DS 


A 


SEBSAV 


DS 


F 


DEBOFLGS 


DS 


4X 


DEBOPATB 


DS 


4X 


lOBFLG 


DS 


OX 


lii§ Refined 


in lOBFLG 



lOBBFLG EQU OX 

lOBOUT EQU X'40' 

lOBIN EQU X'20' 

lOBUPD EQU X'lO' 



lOBNXTAD DS 
lOBECB DS 
IHAIOB DS 
DEBDEBID DS 
DEBDCBAD DS 
ICBECBCC DS 



A 

F 

OF 

OX 

A 

OX 



li£§ defined in lOBECBCC 

lOBBECBC EQU 12 

lOBBECBP EQU 12 

lOBECBPT DS A 

I0BFLAG3 DS OX 

lOBBCSH EQU 16 

lOBCSW DS 8X 



Field Description, Contents, Meaning 

A*9 Error option 
A*10 Key length 

Reserved for IBM use 
A*11 BDAM search limit 

Data set organization 



A*12 Record format 
A*13 Option codes 

Block size 

Logical length record 
A* 14 I/O operation indicator 



During CLOSE 
DISP=LEAVE during CLOSE 
GOTO FCBPROC during CLOSE 
GOTO FCBPROC during OPEN 
01I=L0HER CASE console I/O 
PUT-MOVE-VAR-BLK 
WRITE/PUT 
READ/GET 

A*15 I/O operation indicators 



Switch for MOVEFILE with PDS option 
Move PDS switch for FIND 
L'DEB in doublewords 
Reserved for IBM use 
Data extent block 
A (move— mode user buffer) 
SEB return address 
Data set status flags 
OPEN/CLOSE option byte 
(Start of lOBPREFIX for normal scheduling 



Displacement of lOB flag in lOB 
WRITE, PUT in process 
READ, GET in process 
QSAM PUTX in process 

A (next buffer to be used) 

ECB for QSAM normal scheduling 

Input/output block 

DEB identification 

A (data control block) 

ECB completion code 



Displacement of ECB code in lOB 
Displacement of ECB pointer in lOB 

A (event control block) 

I/O error flag 

Displacement of CSW in lOB 

Last CCW stored (i.e., residual count) 
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FCBSECT 



Hexadecinal Field 
Displacement Name 



BO 
B4 

B8 
B8 



B8 
24 
2C 
30 
31 
32 



6 

8 

C 

10 



14 
18 



lOBSTART DS 

lOBDCBPT DS 

lOBEHD DS 

FCBEND DS 

FCBEMSIZ EQU 

ORG 

FCBIOOUT DS 

FCBICBUF DS 

FCBCONCR DS 

FCBCONMS DS 

FCBIOCNT DS 



A 
A 

OX 
OD 
(*-FCESECT)/8 



Field Description, Contents, Meaning 

X' ID-NEXT BUFFER' ,AL3 (INITIAL BUFFER) 
A (data control block) 

End of input/output block 

End of FCB,JFCB,DEB,IOB blocks 

Size of FCB entry, doublewords 



FCBDSTIP+4 

CL8 Special I/O command list 

A A(data buffer) 

C A*16 Console color code 

X A* 17 Console miscellaneous information 

H A*18 Length of data buffer 



Data Event Control Block (DECB) 



IHADECB DSECT 




DECSDECB DS 


F 


DECTYPE DS 


H 


Sits defined in DECTYPE 


DECBRD EQU 


X'80' 


DECBHR EQU 


X'20' 


DECLNGTH DS 


H 


DECDCBAD DS 


A 


DECAREA DS 


A 


DECIOBPT DS 


A 


BDAM Extension 




DECKYADR DS 


A 


DECRECPT DS 


A 


Sjome Freauentljj; Used Equates 



DDMAH 

BLK 

BS 

DA 

FXD 

IS 

LOC 

MOV 

PS 

PO 

PHEVI 

QS 

UND 

VAR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
OUS EQU 
EQU 
EQU 
EQU 



FCBDSTYP 



•10« 
'20» 
'20' 
•80' 
•80« 
•08' 
•10' 
'40» 
•02' 
•80' 
'40' 
•CO' 
•40' 



Event control block 
Type of I/O reguest 



Read SF 
Write SF 

Length of key and data 
V(data control block) 
V(key £ data, buffer) 
V(IOB) 



V(key) 

V (block reference field) 



Filetype = data set name 
RECFM=blocked records 
MACRF=BSAM 
DSORG=direct access 
RECFM=fixed-length records 
DSORG=indexed seguential 
MACRF=locate mode 
MACRF=move mode 
DSORG=physical seguential 
DSORG=partitioned organization 
OFLGS=previous I/O operation 
MACRF=QSAM 

RECFM=undef ined format records 
RECFM=variable-length records 
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FCHTAB 



FCHTAB: FETCH TABLE 



FCHTAB contains a fetch/load parameter list that points to a 34-byte directory list. The 
fetch table is used when a DOS program issues a LOAD or FETCH request without the 'LIST=' 
parameter. 

The IJBFTTAB field (hex FO) in the SYSCOM block points to the fetch table. 




8 
10 
18 
20 
28 



FCHAPHNM 



I A*1 I 



FCHALSNM 



DIRNAME 

DIRTTR I A*2 | DIRTT | DIRLL 
A*3 I A*4 I DIRPPP I DIREEE 

I A*6 I 



DIRRR 



I A*5 I DIRAAA 



D I RV E E I /////////////////////////////////////// 



Bexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



8-Blie ESiameter List Pointing to Direc tor_y List 

FCHAPHNM DC A (DIRNAME) Address of phase name 

FCHOPT DC X'OO" A*1 Options 

FCHALSNM DS AL3 Address of listname 



Jii— Byte Directory List 



8 


DIRNAME 


DS 


CL8 




10 


DIRTTR 


DS 


XL3 




13 


DIRN 


DS 


XL1 


A*2 


ia 


DIRTT 


DS 


XL2 




16 


DIRLL 


DS 


XL2 




18 


DIRC 


DS 


XL1 


A*3 




Bits defined 


in DIRC 






SELFREL 


EQU 


X'80' 






RELPHSE 


EQU 


X'40' 






SVAELIG 


EQU 


X«20' 






SVAPHSE 


EQU 


XMO' 






PCLPHSE 


EQU 


X«08' 






PNOTFND 


EQU 


X'OU' 






DACTIVE 


EQU 


X'02' 






NOTEXT 


EQU 


X'01' 




19 


DIRT 


DS 


XL1 


A*U 


1A 


DIRPPP 


DS 


XL3 




ID 


DIREEE 


DS 


XL3 




20 


DIRRR 


DS 


XL2 




22 


DIRR 


DS 


XL1 


A*5 


23 


DIRAAA 


DS 


XL3 




26 


DIRK 


DS 


XL1 


A*6 


27 


DIRVEE 


DS 


XL3 






FCHLENG 


EQU 


♦-FCHTAB 






FCHLENDH 


EQU 


(FCHLENG + 7)/8 



Phase name 

Phase TTR 

No. halfwords in directory 

No. text blocks in phase 

Length last text block 

Flag byte 



Phase self-relocatable 

Phase to be relocated 

Phase SVA eligible 

Phase in SVA 

Phase in priv CIL 

Phase not found 

Phase directory active 

TEXT=NO specified 

Reservedfor IBM use 

Phase load point 

Phase entry point 

Number RLD items in phase 

No. additional RLD blocks 

Partition start address 

Reserved for IBM use 

Phase entry point in SVA 

Total length (42) in bytes 

Total length in doublewords 
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FICL 

FICL: FIRST IN CLASS BLOCK 

FICL is a 2-byte table used in CMS/DOS to address system and programmer logical unit 
blocks. 

Byte of FICL points to the first system class logical unit in the LUB table. Thi$ is 
always the first entry in the LUB table. The second byte points to the first programmer 
class logical unit in the LUB table partition area. 

The FICLPT field (hex U8) in the BGCOM block points to the FICL block. 
I A*1 I A* 2 I///////////////////////////////////////////] 

Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



SYSINDX DC AL1 (0) A*1 First BG system LUB index 
2 PHOGINDX DC AL1(14) A*2 Programmer LUB index 
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FRDSECT 



FRDSECT: FREE CHAIN ELEMENT HEADER BLOCKS 



FRDSECT describes the fields used by DMSFRE to reference the four free chain element 
header blocks. FRDSECT is invoked by the macro DMSFRT. 

The DMSFRT DSECT is pointed to by a V-constant in DMSFREE, and also by the ADMSFRT field 
(hex 530) in NUCON. 




8 
10 
18 
20 
28 
30 
38 
UO 
48 



FREELN 

I /////////////////////////// I 



FREELU 



I /////////////////////////// I 



FREEHN 



I /////////////////////////// I 



FREEHU 



r 



I /////////////////////////// 1 



AFREETAB 
ACALL 






FREEL0H1 

I A*1 I A*2 I /////////// I 

I 



Hexadecimal Field 
Displacement Name 




10 
20 
30 



Field Description, Contents, Meaning 



The Follcwinc| Are the Four Free Chain Element Header Blocks 

FREELN DC 3F" ' , AL 1 (FLNU + FLPA, NUCKEY,NUCCODE, 0) Low storage nucleus 

FREELU DC 3F • • ,AL1 (0 , USE RKEY ,USERCODE,0) LOW Storage user chain 

FREEHN DC 3F« • , AL 1 (FLNU + FLHC, NUCKEY,NUCCODE,0) High storage nucleus 

FREEHU DC 3F ' ' ,AL 1 (FLHC , USERKEY ,USERCODE, 0) High storage user chain 



5he Following Symbolic Equates Describe the Format of Each of the 
IO]lE free Chain Element Header Blocks 

POINTER EQU Point to first free element 

NUM EQU 4 Number of elements in chain 

MAX EQU 8 Maximum size of an element 

FLAGS EQU 12 Flag byte 

Bits defined in FLAGS 

FLCLN EQU X'80" Cleanup flag 

FLCLB EQU X • 40 ' Clobbered chain flag 

FLHC EQU X»20' High storage flag 

FLNU EQU X'10« Nucleus flag 

FLPA EQU X«08' Page available on chain 

SKEY EQU 13 Storage key for this chain 

Bits Refined in SKEY 

USERKEY EQU X'EO" User storage key 

NUCKEY EQU X • FO ' Nucleus storage key 

TCODE EQU 14 FREETAB table code 
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FRDSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



40 



48 



Bits defined 


in TCODE 


USERCODE 


EQU 


1 


NUCCODE 


EQU 


2 


THNCODE 


EQU 


3 


USARCODE 


EQU 


U 


SYSCODE 


EQU 


5 


MAXCODE 


EQU 


5 


♦UNUSED 


EQU 


15 


BLOCKLEN 


EQU 


16 


AFREETAB 


DC 


A(0) 


FREEL0W1 


DC 


A(0) 



ACALL 



DS 



User free storage page 

Nucleus free storage page 

Transient area page 

User area page 

System page 

Maximum possible code value 

Symbolic length of block 

Address of FREETAB table 
Address of caller (for errors) 
(set by INIT2) 
Address of caller (for errors) 



4C 



04D 



Flags Set by Examining SVC 203 Halfword Code 

FREEFLG1 DC BLl'O* A*1 

Bits defined in FREEFLGJ 

Conditional request 
Variable request 
Nucleus request 
FREE (vs FRET) request 
Low storage is OK 
High storage is OK 
Messages wanted on error 
TYPCALL eguals BALR in macro 

The Following B^te Holds Flajs Internal to the DMSFRE Routine 

FREEFLG2 DC BLl'O' A*2 



FHF1C 


EQU 


X'80' 


FRF1V 


EQU 


X'40' 


FRF1N 


EQU 


X'20' 


FRF1E 


EQU 


X'10' 


FRF1L 


EQU 


X'08' 


FRF1H 


EQU 


X'04' 


FRF1M 


EQU 


X'02' 


FRF1B 


EQU 


X'01' 



iitS defined in FR11II;G2 

FRF2CL EQU X'80' 

FRF2SVP EQU X'40' 

FRF2N0I EQU X'20' 



FRF2CKE 


EQU 


X'10' 


FRF2CKT 


EQU 


X'08' 


FRF2CKX 


EQU 


X'04' 



Cleanup flag 
SCHVPGE flag 
2nd initialization routine has 

not yet been called by DMSINS 
Do a CHECK each time FREE 

or FRET is called 
Do a check this time 
Executing CHECK routine now 



Free Chain Element Description 



POINTER 
SIZE 



EQU 
EQU 



Pointer to next FREE element 
Size of this element in bytes 
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FSCBD 



FSCBD: FILE SYSTEM CONTROL BLOCK 



FSCBD is a PLIST defined for general use by routines that use the CMS file system, 
is generated when the user invokes the FSCBD macro. 



FSCBD 





8 

10 

18 

20 



FSCBCOMM 

FSCBFN 

FSCBFT 



FFSCBFM I FSCBITNO 



FSCBBUFF 



FSCBSIZE 



FSCBFV 



FSCBNOIT 



28 I FSCBNORD 



Hexadecimal Field 
Displacement Name 




8 
10 
18 
1A 
1C 
20 
22 
24 
28 



FSCBCOMM DS 
FSCBFN DS 
FSCBFT DS 
FSCBFM DS 
FSCBITNO DS 
FSCBBDFF AS 
FSCBSIZE DS 
FSCBFV DS 
FSCBNOIT DS 
FSCBNORD DS 



CL8 

CL8 

CL8 

CL2 

H 

H 

F 

CL2 

H 

A 



Field Description, Contents, Meaning 



File system command (RDBUF,WRBUF,etc.) 

Filename 

Filetype 

Filemode 

Relative record number to be read/written 

Address of R/W buffer or of STATEFST 

Length of buffer 

RECFH - C'F' or C V 

Number of records to be read/written 

Number of bytes actually read 
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FSTD 



FSTD: FILE STATUS TABLE ENTRY DSECT 

FSTD describes the fields in a 40-byte file status table entry as found by STATE, STATES, 
DMSLFS or DMSLFSW. FSTD is functionally equivalent to the FSTSECT DSECT. 





8 

10 

18 

20 



FSTFNAME 
FSTFTYPE 



FSTDATEW | FSTTIMEW 
FSTFMODE | FSTRECCT 
FSTLRECL 



I FSTHRPNT I FSTRDPNT 

I FSTFCLPT I A*1 | A*2 

I FSTBLKCT | FSTYEARH 






Hexadecimal Field 
Displacement Mame 





8 

10 

12 

ia 

16 
18 
1A 
1C 
IE 
IF 



20 
24 
26 



FSTFMAME 


DS 


ID 




FSTFTYPE 


DS 


ID 




FSTDATEW 


DS 


1H 




FSTTIMEW 


DS 


1H 




FSTWRPNT 


DS 


1H 




FSTRDPNT 


DS 


1H 




FSTFMODE 


DS 


1H 




FSTRECCT 


DS 


1H 




FSTFCLPT 


DS 


1H 




FSTRECFM 


DS 


1C 


A*1 


FSTFLAGS 


DS 


IX 


A*2 



lii§ defined in FSTFLAGS 

FSTRWDSK EQU X«80' 

FSTRODSK EQU 

FSTXRDSK EQU 

FSTXWDSK EQU 

FSTACTRD EQU 

FSTACTWR EQU 

FSTACTPT EQU 

FSTFILEA EQU 

FSTLRECL DS 

FSTBLKCT DS 

FSTYEARW DS 

FSTDSIZE EQU 



X' 


00' 


X' 


40' 


X' 


CO* 


X' 


04* 


x« 


02* 


X' 


01' 


X' 


07' 


IF 




1B 




1H 




(* 


-FSTD) 



Field Description, Contents, Meaning 

Filename 

Filetype 

Date last written - MMDD 

Time last written - HHMM 

Write pointer — item number 

Read pointer — item number 

Filemcde - letter and number 

Number of logical records 

First chain link pointer 

Record format (F or V) 

FST flag byte 



Read/write disk 
Read-only disk 
Extension of R-0 disk 
Extension of R/W disk 
Active for reading 
Active for writing 
Active from a point 
File is active 

Logical record length 
Number of 800-byte blocks 
Year last written 
FST size in bytes 
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FSTSECT 



FSTSECT: FILE STATUS TABLE 

FSTSECT defines the file status table (FST) which describes the attributes of a file on a 
CMS virtual disk. FSTSECT is invoked by the macro FST. 

The file status tables for all files on the disk are grouped into 800-byte disk records 
referred to as file status table blocks (FSTBs) . Each file status table block can 
accommodate up to 20 file status tables. 






1 




FSTN 


_ .... , ,, 


8 






FSTT 




10 




FSTD 


1 FSTHP 1 


FSTRP 1 


18 


1 FSTM 


1 


FSTIC 1 FSTCL | 


A*1 1 A*2 1 


20 




FSTIL 


1 FSTDBC 1 


FSTYR 1 



Hexadecimal Field 
Displacement Name 






FSTS 


DS 


ID 




8 


FSTT 


DS 


ID 




10 


FSTD 


DS 


IF 




14 


FSTWP 


DS 


1H 




16 


FSTBP 


DS 


1H 




18 


FSTM 


DS 


1H 




1A 


FSTIC 


DS 


1H 




1C 


FSTFCL 


DS 


1H 




IE 


FSTFV 


DS 


1C 


A*1 


IF 


FSTFB 


DS 


1C 


A*2 



Field Description, Contents, Meaning 

Filename 

Filetype 

Date/time last written 

Write pointer (item no.) 

Read pointer (item no.) 

Filemode 

Item count 

First chain link 

Fixed (F) /variable (V) flag 

Flag byte (if used) 



Siis defined in FSTCB (A££licable onlj to STATEFST of FST-entr^ 

§fte£ successful STATE or ST ATE H call) 

Read-only disk 

Read-only extension of read-only disk 

Read/write disk 

Read-only extension of read/write disk 

File "active" is one of the following: 

File active for reading 

File active for writing 

File active from a "point" 

Maximum item length 

800-byte data block count 

Year 



Forward pointer to next hyperblock in storage 
Backward pointer to previous hyperblock in storage 





FSTFRO 


EQU 


X'OO' 




FSTFROX 


EQU 


X'40» 




FSTFRW 


EQU 


X>80' 




FSTFRWX 


EQU 


X'CO* 




FSTFACT 


EQU 


X'07' 




FSTFAR 


EQU 


X'04' 




FSTFAH 


EQU 


X'02' 




FSTFAP 


EQU 


X'01' 


20 


FSTIL 


DS 


IF 


24 


FSTDBC 


DS 


1H 


26 


FSTYR 


DS 


1H 




FSTL 


EQU 


♦-FSTSECT 




1ST Hl£erblock 


Parameters 




FSTFWDP 


EQU 


80 




FSTBKWD 


EQU 


804 
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FVSECT 

FVSECT: FIXED VARIABLE STORAGE WORK ^REA FOR CMS FILE SYSTEM 

FVSECT is used mainly by file management and I/O routines. FVS contains save areas, work 

areas, and commonly used constants. A typical use of FVS, is when a reentrant I/O routine 

requires a work area or save area, since the routine cannot modify itself. FVSECT is 
invoked by the FVS macro. 



01 



DISK$SEG 



I 



38| 



REGSAV3 



I 



78| 



RWFSTRG 



C0| 
I- 
C8| 



ADTFVS 
REGSAVO 



100 



108 



REGSAV1 



A*1 I 

I 
I 



I 



1481 

I 
1501 



F65535 



FWH 



A*2 I 



VFREE 



F1C0 
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FVSECT 



1581 



160 



1681 

I 

1701 

I 
1781 

I 
1801 

I 
1881 



VFRET 


1 JSBO 1 


JSR1 


1 RHNFD 1 


F800 
FVSDSKA 


1 DSKLOC 1 


RHCNT 


1 DSKADR 1 


ADTADD 


,, .,,1 1 




FINISLST (cont.) 1 



198 
1A0 
1A8 
1B0 
1B8 
ICO 
1C8 
1D0 
1D8 
lEO 
1E8 



FFE I FFD 
I A*5 I A*6 I A*7 



FVSERASl 
READCHT 



I FFF 
SIGNAL I A*3 I h*li 
FVSERASO 
FVSERAS2 



FVSFSTDT 
FVSFSTH I FVSFSTIC 



FVSFSTIL 
FVSFSTAD 



FVSFSTN 

FVSFSTT 

I FVSFSTWP I FVSFSTRP 
I FVSFSTCL I A*8 | A*9 
I FVFSTDB I FVSFSTYR 



FVSFSTAC 
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FVSECT 



Hexadecimal 


Field 






Eisplacement 


Name 









DISK$SEG 


DS 


15F 


3C 


REGSAV3 


DS 


15F 


78 


RHFSTRG 


DS 


18F 


CO 


ADTFVS 


DC 


2F' 



C8 
104 
107 



108 
144 
147 

148 

14C 



150 
154 

158 
15C 
160 



Field Description, Contents, Meaning 

For FSTLKP, FSTLKH, ACTLKP, TRKLKP, QQTRK 
For RDBUF, WRBUF, FINIS, STATE, POINT 
Remaining storage for RDBUF, WRBUF, FINIS 

ADTLKP 



Save Area for Lowest-Level Routines 

e.g. REAEMFDf lELUFD, UPDI^K, TYPSRCH, ADTLKW 



REGSAVO DS 

DC 

ERRCODO DC 

TRKLSAVE EQU 



15F Saved R0-R15 

AL3 (00) First 3 bytes of return code 

AL1 (*-*) A*1 Error code goes here 



REGSAVO 



For TRKLKP/X only when called by QQTRK/X 



Save Area for Next— to-Lowest Level Routines 
e.g. READFST, ERASE, ALTJrT JNTSVC-LOADMOD 



REGSAV1 
ERRC0D1 


DS 
DC 
DC 


15F 

AL3 (00) 
AL1 (*-*) 


F65535 


DC 


F'65535' 


FH4 
HH4 


DC 
EQU 


F'4' 
FW4 + 2 


VFREE 
F100 


DC 
DC 


V(FREE) 
F' 100' 


VFRET 

JSRO 

JSRl 


DC 
DC 
DC 


V(FRET) 

F'O' 

F'O' 



PLIST to Read^lWrite MFD 



164 


RHMFD 


DC 


A(*-*) 


168 


F800 


DC 


F'800' 


16C 




DC 


A(HH4) 


170 


FVSDSKA 


DC 


A(*-*) 


174 


DSKLST 


DS 


OF 


174 


DSKLOC 


DS 


A(*-*) 


178 


RHCNT 


DC 


A(*-*) 


17C 


DSKADR 


DC 


A (*-*) 


180 


ADTADD 


DC 


A(*-*) 


184 


FINISLST 


DC 


CLS'FINIS' 


18C 




DC 


CL8'*' 


194 




DC 


CL8'*' 


19C 




DC 


CL2'*' 


19E 




DS 


OH 


19E 


FFF 


DC 


X'FFFF' 


1A0 


FFE 


DC 


X'FFFE' 


1A2 


FFD 


DC 


X'FFFE' 



Register save area 

A*2 Error code 

= X» OOOOFFFF' 

Constant value 
Constant value 

Constant value 
Constant value 

Address of FRET 

RO and 

R1 saved here for FRET calls. 



Address of MFD 
800 bytes 

Address of the ADT 

All-purpose RDTK/WRTK PLIST 

Address of item to be read or written 

Byte count (usually 800) 

Disk address of item to be read or written 

Address of ADT now in use 

PLIST to close all files 



Half word constants 

Means no significant data past 215th byte 
1968— era MFD still supported on input only 
Newest signal for 2314 handling 
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FVSECT 



Bexadeclmal Field 
Displacement Name 



Field Description, Contents, Meaning 



1A4 



1A6 



1A7 



SIGNAL = Scratch halfword used by BEADMFD or ERASE 

= 0000, X'FFFF', X'FFFE', or X'FFFD» 
00, FF, FE, OB FD 

A*3 Nonzero means UFD is being updated 



SIGNAL 


DC 


H'O' 


SHTCH 


EQU 


SIGNAL* 1 


UFDBUSY 


DC 


X'OO' 


Bits def 


ined 


in UFDBUSY 


WBBIT 


EQU 


X'80' 


UPBIT 


EQU 


x'ao» 


FNBIT 


EQU 


X»20' 


EEBIT 


EQU 


XMO' 


DIOBIT 


EQU 


X«08' 



MRBUF 

UPDISK - READHFD 

FINIS 

EBASE - ALTEB - BEADFST 

BDTK/WBTK 

Iii§ follojiifia ^its are for routines which do not U£date the disk, 
h^%. if^ich cannot be interrugted bj; an HX comigand 



ABNBIT 
ITSBIT 



EQU X'02' 
EQU X»01' 



KXFLAG DC X'OO' 
KXWANT EQU X'80' 
KXWSVC EQU X'OT 



1A8 




DC 


X'OO 


1A9 


FLGSAVE 


DC 


X'OO 


1AA 


FVSFLAG 


DC 


X'OO 



DMSABN (ABEND recovery routine) 
DMSITS (SVC handling routine) 

A*4 'HX' flags 

HX wanted as soon as possible 
Hold HX until any SVC activity 

Beserved for IBM use 
A*5 For scratch use (e.g. by BELUFD) 
A*6 For general use (as needed) 



Miscellaneous Storage Used hj EBASE (or BE NAME) 



1AB 


EBSFLAG 


DC 


X'OO 


1AC 


FVSEBASO 


DC 


F'O' 


1B0 


FVSEBAS1 


DC 


F'O' 


1B4 


FVSEBAS2 


DC 


F'O' 


1B8 


READCNT 


DC 


F'O' 


1BC 




DC 


F'O' 



A*7 Flag for use by EBASE or RENAME 

BO to/from FSTLKW (for EBASE) 
R1 to ACTLKP or FSTLKW (for EBASE) 
Address of free storage used by EBASE 
Current read count (DMSBBD) 
Beserved for IBM use 



File Status Table (FST) Copj from STATE 



ICO 


STATEFST 


DS 


OD 


ICO 


FVSFSTN 


DC 


D'O' 


1C8 


FVSFSTT 


DC 


D'O' 


1D0 


FVSFSTDT 


DC 


2H'0' 


1D4 


FVSFSTWP 


DC 


H'O' 


1D6 


FVSFSTBP 


DC 


H'O' 


1D8 


FVSFSTM 


DC 


H'O' 


IDA 


FVSFSTIC 


DC 


H'O' 


IDC 


FVSFSTCL 


DC 


H'O' 


IDE 


FVSFSTFV 


DC 


C ' A*8 


IDF 


FVSFSTFB 


DC 


X'OO' A*9 


1E0 


FVSFSTIL 


DC 


F'O' 


1EU 


FVSFSTDB 


DC 


H'O' 


1E6 


FVSFSTYB 


DC 


2C' ' 


1E8 


FVSFSTAD 


DC 


A(0) 




STATEBO 


EQU 


FVSFSTAD 


1EC 


FVSFSTAC 


DC 


A(0) 



Full FST Of STATED file 

Filename 

Filetype 

Date/time last written 

Write pointer (item ID) 

Bead pointer (item ID) 

Filemode 

Number of items in file 

Disk address (first chain link) 

Fixed (F) /variable (V) indicator 

Flag byte 

Length of largest item in file 

Number of data blocks 

Year last written 

A(ADT for this file) 

A (real FST entry for this file) 
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lOSECT 



lOSECT: I/O IHTEHRUPT SAVE AREA 

lOSECT describes the fields used by DMSITI for save registers, I/O old PSH, and other 
data when handling I/O interrupts. 

lOSECT is pointed to by the AIOSECT field (HEX 658) in NUCON. 



I 



lOSAVE 






40 I 



I- 



48 I 



I- 



50 I 



lONTABL 



OLDEST 



AUSRITBL 



AUSRILST 






I- 



60 I 



NEXTO 



I- 



70 I 



78 I 



I — 



80 I 



lOPSW 
lOCSH 



I 
I 



HOLD 



I VSTRANGE I ////////////// I 
8 8 I /////////////////////////////////////////////////////// 1 



Hexadecimal Field 
Displacement Name 






lOSAVE 


DS 


16F 


40 


lONTABL 


DC 


F'O' 


44 


AUSRITBL 


DC 


A(0) 


48 




DC 


F»28' 


4C 


AUSRILST 


DC 


a{0) 


50 


OLDEST 


DS 


4F 


60 


NEXTO 


DS 


4F 


70 


lOPSW 


DS 


2F 


78 


lOCSH 


DS 


2F 


80 


HOLD 


DC 


F'O' 


84 


VSTRANGE 


DC 


H'O' 


86 




DC 


IH'O' 


88 




DC 


2F'0' 



Field Description, Contents, Meaning 

Register save area 

Size of user interrupt table (doublewords) 

Address of user interrupt table 

Length of each entry 

Address of last entry in table 

Oldest I/O old PSW and CSW 
Next oldest I/O old PSH and CSH 
Newest I/O old PSH 
Newest CSH 

Holds entry pointer for device 

Unknown device address saved here 

Reserved for IBM use 
Reserved for IBM use 



Section 2. CMS Data Areas and Control Blocks 185 



KEYSECT 



KEYSECT: DISK KEY TABLE DSECT FOR EDAM SIMULATION 



KEYSECT defines the key table used in OS simulation for I/O by key. 




8 
10 
18 
20 
28 
30 



KEYLNGTH 



DATAEND 



KEYMODE 
TBLLNGTH 



KEYOP 



KEYNAME 
KEYTYPE 
KEYTBLNO | KEYTBLAD 

I A*1 I A*2 I KEYCOUT 



/////////////////////////// I 



Hexadecimal Field 
Displacement Name 







KEYSECT 






PUSH 


PRINT 




KEYSECT 


DSECT 







KEYLNGTH 


DS 


IF 


4 


DATAEND 


DS 


IF 


8 


KEYOP 


DS 


2F 


10 


KEYNAME 


DS 


2F 


18 


KEYTYPE 


DS 


2F 


20 


KEYMODE 


DS 


1H 


22 


KEYTBLNO 


DS 


1H 


24 


KEYTBLAD 


DS 


IF 


28 


TBLLNGTH 


DS 


IF 


2C 


KEYFORM 


DS 


IX 


2E 


KEYCHNG 


DS 


IX 


2E 


KEYCOUT 


DS 


1H 


30 




DS 


IF 


34 


KEYTABLE 


DS 


OF 



Field Description, Contents, Meaning 



A*1 
A +2 



Key length 

Item pointer to last data item in file 

Start of PLIST for keys file 

Filename of keys file 

Filetype of keys file 

Filemode of keys file 

Item no. of key table 

Address of key table 

Byte size of key table 

Format of keys file 

Indicates change in key table 

Blocking factor of key table 

No. of bytes read 

Start of keys table (item number) 
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LDRST 

LDRST: LOADER STORAGE AREA 

LDRST describes the fields of the work area used by the loader. The work area is 
obtained and built by DMSLDR. 




GPRSAV 



LOCSAV 

LOCCT 
I TBLREF 

I A* 3 I////// I ////// I ////// 
I PARMLIST 

I 



SPEC 



3581 

I — 
3601 



I 

ESIDTB 






I 
5581 

I 
5601 



APSV 






1 

5981 
1 









r 

1 

1 




TEMPST 






5A0| 
j 




TMELOC 


CRDPTR 






5A8I 
1 








FILE 
RlADBl 
FNAME 
FTYPE 


JF 










5B0I 

1 












5B8| 
1 











5C0| 
1 










5C8| 
1 


FMODE 


1 


RITEM 


[ 




RADD 






5D0| 

1 




RLENG 




1 


RFIX 


1 


RHUM 
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LDRST 



5D8| NUMBYTE | 

5E0I FINIS 



5F8I A* a I //////////////////// 1 

5FC| SYSUT1 (44 bytes) 

I 



628 1 TYPLIN 

6301 TYPREAD 

6381 DSKLIN 



6501 I DSKAD 

6581 
I 

660 1 I HEXCON 

I 1 

I I/////// 

670 I OOTBUF 



6D0I I PRVCNT I///////////// 

6D8| SAV67 

6E0| ENTNAME 

6E8| ENTADR | MEMBOUND 

6F0| PLISTSAV 



8F0I REG13SAV | A*5 I /////////////////// 
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LDRST 



Hexadecima 


1 


Field 






Displaceme 


!nt 


Name 











GPRSAV 


DS 


3F 


C 




LOCSAV 


DS 


F 


10 




RETT 


DS 


F 


m 




LOCCT 


DS 


F 


18 




BRAD 


DS 


F 


1C 




TBLREF 


DS 


F 


20 




FLAG1 


DS 


X 






Bits def; 


Lned 


in FLAGl 






absolute' 


"equ 


X'80« 






FSTXTADR 


EQU 


X«40« 






COMHONEX 


EQU 


X'20' 






PREXIST 


EQU 


X' 10' 






ENDCDADR 


EQU 


X'OB" 






NOERASE 


EQU 


X'04' 






HORKFILE 


EQU 


X'02' 






HODUP 


EQU 


X'OI* 



Field Description, Contents, Meaning 



21 



FLAG2 



DS 



Bits defined in FLAG2 





STRINITC 


"equ 


X«80' 




NOMAP 


EQU 


X»40' 




APRILB 


EQU 


X'20« 




MOAUTO 


EQU 


X' 10' 




TYPE 


EQU 


X»08' 




NOREP 


EQU 


X'04' 




NOINV 


EQU 


X«02' 




SCLIBE 


EQU 


X'OI* 


22 


TBLCT 


DS 


H 


24 


FLAG3 


DS 


X 




CMD 


EQU 


X'80' 


25 




DS 


X 


26 




DS 


5H 


30 


RLDCONST 


DS 


F 


34 


PARMLIST 


DS 


F 


38 


RETREG 


DS 


F 


3C 


SPEC 


DS 


200F 


35C 


ESIDTB 


DS 


256H 


55C 


APSV 


DS 


16F 


59C 


TEMPST 


DS 


F 


SAO 


TMPLOC 


DS 


F 


5A4 


CRDPTR 


DS 


F 


5A8 


FILE 


DS 


D 


5B0 


READBUF 


DS 


2F 


5B8 


FNAME 


DS 


2F 


SCO 


FTYPE 


DS 


2F 


SC8 


FMODE 


DS 


H 


5CA 


RITEH 


DS 


H 


sec 


RADD 


DS 


F 


SDO 


RLENG 


DS 


F 


SDU 


RFIX 


DS 


H 



Registers 9-12 

Base register contains A (DMSLDRA) 
Return register for DMSLSB 
(LOCCST) next load location 
(STRTADDR) start execution address 
(ALDRTBL) top of loader table 
A*1 Loader switches (permanent) 



Absolute loading 

First text address saved 

Common entries exist in loader table 

PR entries exist in loader table 

Allow end card address 

Don't erase the load map 

Work file (SYSUT1) exists 

Do not type message DMSLI0202W 

A*2 Loader switches (permanent) 



Call STRINIT in LOADMOD 

Do not create a load map 

REP card processing control 

No automatic text deck checking 

Type load map at terminal 

NO REP card printing 

No invalid card typeout 

No automatic TXT library searching 

Number of entries in loader table 
A*3 More flags 

Processing names from cmd list 

Reserved for IBM use 

Reserved for IBM use 

Relocation constant 

Updated parameter list pointer 

Return register 

10— card input buffer 

256 ESD entries/object deck 

Register save area for subroutine calls 

Temporary RLD routine storage 

Temporary storage 

Input card pointer 

Save location for DMSLIB 

Input read parameter list 

Filename 

Filetype 

Filemode 

Number of items 

Buffer address 

Buffer length 

Fixed/variable flag byte 
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LDRST 



Hexadecimal 
Displacement 

5D6 
5D8 
5DC 
5F8 



5F9 
5FC 
628 
630 
638 
654 
661 



66F 
670 
6D4 
6D8 
6E0 
6E8 
6EC 
6F0 
8F0 
8FM 
8F8 



Field 
Name 

RNUM DS H 

MUMBYTE DS F 

FINIS DS 7F 

FLAGS DS X 



Field Description, Contents, Meaning 

Number of items 
Number of bytes actually read 
FINIS parameter list 
A*4 Loader switches (nonpermanent) 



START EQU X'80' 

ONEDYNA EQU X ' 40 • 

ESD1ST EQU X'20» 

HOSLCADR EQU XMO' 

SETLIB EQU X'08' 

CLOSELIB EQU X'04' 

LUNDEF EQU X • 02 • 

RESET EQU X'OT 

DS 3X 

SYSUT1 DS 11F 

TYPLIN DS 2F 

TYPEAD DS 2F 

DSKLIN DS 7F 

DSKAD DS 13X 

HEXCON DS lUX 

PACK EQU HEXCON 

UNPACK EQU HEXCON+5 

OUTPUT DS X 

OUTBDF DS 100X 

PHVCNT DS H 

SAV67 DS 2F 

ENTNAME DS CL8 

ENTADR DS F 

MEMBOUND DS F 

PLISTSAV DS eUD 

REG13SAV DS F 

FRSTSDID DS X A*5 

ENDFREE DS OD 

NEED EQU {ENDFREE-LDRST)/8 



Start execution requested 

One call to dynaload per text file 

First ESD data item this card 

No address field in SLC card 

Set up for library searching 

Clear TXTLIB searching 

Undefined entries exist in loader table 

Reset 'entry* specified 

Library search work area pointer 

RLD work file PLIST 

TYPLIN PLIST 

TYPLIN buffer address 

Disk PLIST for load map 

Hexadecimal constant 
Hexadecimal constant 
Hexadecimal constant 

Output buffer for load map and terminal printing 

Address of next PR load address 

Temporary save of regs 6 and 7 

Entry name (reset ENTRY or entry control card) 

Entry name's loader table location 

Low extend of free storage (FREELOWE) 

LOAD (INCLUDE) PLIST saved 

Address of LDRST 

First section definition ID 



The following eguates refer to disglacements and f la^s 
is iJbe ilZTABLE entry usually pointed to hj register _12 



REFNAME 


EQU 





REFLG1 


EQU 


8 


REFPRB 


EQU 


X'7C' 


REFPRH 


EQU 


X'7D' 


REFPRF 


EQU 


X"7E' 


HEFPRD 


EQU 


X'7F' 


REFUND 


EQU 


X'80' 


REFCXD 


EQU 


X'81' 


REFCOM 


EQU 


X'82' 


REFHEX 


EQU 


X'83' 


REFNOB 


EQU 


X'90' 


REFLIB 


EQU 


X'10' 


REFINFO 


EQU 


9 


REFVAL 


EQU 


13 


REFLG2 


EQU 


16 


REFCMD 


EQU 


X'80' 



Offset of 8-byte name field 

Offset of flag byte 1 

PR - byte alignment 

PR - halfword alignment 

PR - fullword alignment 

PR - doubleword alignment 

Undefined symbol 

Resolve CXD 

Define common area 

Weak external reference 

LIBE card - nonobligatory 

Single bit for nonobligatory LIBE card 

Offset of relocation factor or max address 

Offset of absolute or assigned value 

Offset of flag byte 2 

Command line name — must resolve 
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LUBTAB, LUBPR 

LUBTAB AND LUBPR: LOGICAL UNIT BLOCK TABLE 

LUBTAB is a device table that has a two-byte entry for each symbolic name used by 
CMS/DOS. The simulated LUB has 255 entries: 14 entries for the system logical units and 
241 entries for programmer logical units. System devices (SYSRDB, SYSIPT, SYSPCH, 
SYSLST, and SYSLOG) can be assigned to alternate devices. The system and programmer 
tables are defined with separate DSECTs: LUBTAB and PRTAB. LUBTAB is pointed to by the 
field LUBPT in BGCOM. The address of the first LUB entry is in the first byte of the 
FICL control block. 



r — 

I LUBRDR 
I 

8 I LUBLOG 
10 I LUBRLB 



18 I LUBVIS 



LUBIPT 
I LUBLNK 
I LUBUSE 



I LUBPCH 
LUBRES 
I LUBREC 



I LUBLST 
I LUBSLB 
I LUBCLB 



I LUBCAT 



I LUBOOO I LUB001 | LUB002 
LUB004 through LUB239 
1E0 I LUB240 I LUE241 | 



I — 



I LUB003 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



System LUBs 






LUBRDR 


DS 


XL2 


2 


LUBIPT 


DS 


XL2 


4 


LUBPCH 


DS 


XL2 


6 


LUBLST 


DS 


XL2 


8 


LUBLOG 


DS 


XL2 


A 


LUBLNK 


DS 


XL2 


C 


LUBRES 


DS 


XL2 


E 


LUBSLB 


DS 


XL2 


10 


LUBRLB 


DS 


XL2 


12 


LUBUSE 


DS 


XL2 


14 


LUBREC 


DS 


XL2 


16 


LUBCLB 


DS 


XL2 


18 


LUBVIS 


DS 


XL2 


1A 


LUBCAT 


DS 


XL2 





LUBOOO 


DS 


XL2 


2 


LUB001 


DS 


XL2 


4 


LUB002 


DS 


XL2 


6 


LUB003 


DS 


XL2 



1E0 


LUB240 


DS 


XL2 


1E2 


LUB241 


DS 


XL2 




LUBP 


EQU 







LUBJ 


EQU 


1 




LUBL 


EQU 


*-LUB241 



System virtual reader 

System virtual input device 

System virtual punch 

System virtual printer 

Terminal 

Reserved for IBM use 

System residence volume 

Private source statement library 

Private relocatable library 

Reserved for IBM use 

Reserved for IBM use 

Private core image library 

Reserved for IBM use 

VSAM catalog 

Programmer logical unit block 

Programmer logical unit block 

Programmer logical unit block 

Programmer logical unit block 

LUB004 through LnB239 are defined as XL2 

Programmer logical unit block 
Programmer logical unit block 
Displacement to PUB pointer 
Displacement to JIB pointer 
LUB length 



Section 2. CMS Data Areas and Control Blocks 191 



HICL 



NICL: NUMBER IN CLASS 



Byte of the Number In Class block (NICL) contains the number of system class logical 
units. The second byte contains the number of programmer class logical units for the 
partition. 

The NICLPT field (hex 4A) in the BGCOM block points to the NICL block. 



1 A*1 I A*2 I /////////////////////////////////////// I 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



NOSYS DC AL1(14) A*1 Total number of system LBBs 

2 NOPBOG DC ALI (242) A*2 Total number of programmer LUBs 
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HUCON 



NUCON: NUCLEUS CONSTANT AREA 



The nucleus constant area (NUCON) represents the nucleus of CMS. 



01 


IPLPSW 




8| 

1 _ . 


IPLCCW1 




101 

1 _ _ 


IPLCCH2 




181 


EXTOPSH 




201 


SVCOPSH 




281 


PGMOPSW 




301 

1 


MCKOPSH 




381 


lOOPSW 




401 


CSW 




48| 
1 


CAHNPSW 1 


NUCRSV1 1 


501 

1 , . 


TIMER 1 


NUCRSV2 1 


581 


EXTNPSH 




60| 


SVCNPSW 




681 


PGMNPSW 




701 

1 _ _ 


MCKNPSW 




781 

1 _ . 


lONPSW 




801 


CPULOG (NUCRSV3) | 
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MUCOH 



90| 

I 
98 1 

I 

A0| 



NUCRSV4 



PEBADDB 



I MONCLASS I PERCODE | 
I MOUCODE I 



N0CRSV5 



CO I 



LOWSAVE 






1601 



FPRLOG 



I 



1801 



GPRLOG 






I 



ICO I 



ECRLOG 









2001 



SYSTEMID 



I 



220 1 



INSTALID 



2601 



I 



2681 



I 



2701 






2781 






2801 



I 



2881 

I 
2901 



2981 



2A0t 



2A8| 

I 

2B0| 



2B8| 



SYSNAME 

IPLADDR I SYSADDR | 

NUCRSV6 I 

I 

FEIBM 

CURRDATE 

CURRTIME 

CURRVIRT I 

LASTVIRT I 

LASTCHND 
PREVCMD 
LASTEXEC 
PREVEXEC 



DEVICE 






I 



I 



I 



CURRCPUT 
LASTCPUT 
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NUCON 



2C0| 



I- 



2C8| 



I 



2D0| 



I 



2D8| 

I 

2E0| 



LASTLMOD 



LASTTMOD 



DATIPCMS 
CLKVALMD 
HACDIEC 



300 



HACLIBL 



3501 






3581 



TXTLIBS 



TXTDIRC 



I 



3A0| 



3A8 



3B0 



3B8| 



I 



GBS015 

FIBSTDMP 

FES06 



LOC076 

LASTDMP 

DMPTIT 



I 

DMPTITLE 



I- 



4401 



4481 



I 



GLBLTABL 






4501 A*1 I A* 2 I //////////// I 

I — 
4581 ABATABND 

I 

4601 

4681 

l~ 

I DOSDIRC 



I ///////////// I SVC $202 
ERR$202 

ABATPROC 
I ABATLIBT 



I — 



4901 



DOSLIBL 
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NUCOM 



UDS 




A*3 1 


A*4 I////////////I ALTASAVE 




4E0 






ABGCOM 1 ASYSCOM 




4£8 






ADOSDCSS 1 SVC12SAV 


1 


4F0 






DOSFIRST 1 DOSMDM 1 //////////// 1 


4F8 






APPSAVE 1 DOSTRANS 




500 






MAINLIST 1 MAINSTRT 




508 






FREELIST 1 FREENUM 




510 






MAINHIGH 1 FREELOWE 




518 






FREELOWR | FREEUPPR 




520 


— 




AHUCEND 1 AUSRAREA 


■ 


528 




CURRSAVE 1 CODE203 | PCTCMSFS | 


530 






ADMSFRT 1 VCADTLKP 




538 






VCADTNXT 1 VCADTLKW 




540 







CURRIOOP 1 PENDREAD 




548 




PEMDHRIT 1 FSTFINRD 




550 






LSTFINRD 1 AINTRTBL 


1 


558 







— — — — - 1 

AOUTRTBL | NUMFIHRD | NUMPNDWR | 


560 




VHSIZE 1 ALDRTBLS 




568 






STRTADDR | FRSTLOC 




570 






LASTLOC 1 LOCCNT 




578 






LDRADDR | LDRRTCD 




580 






PSW 




588 





TBENT 


LDBFLAGS | PRHOLD 
1 A*5 1 A*6 1 GET1 




590 




598 


DSYM 




5A0 






JSYM 1 A*7 1 




5A8 






1 ALIASENT 




5B0 






D Y M A EN D | /////////////////////////// 1 


5B8 


////////////////////////////I /////////////////////////// 1 


5C0 






FCBFIRST 1 FCBNUM | 


A*8 1 


5C8 


////////////////////////////I LINKLAST 


— -■ 1 

1 
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NUCON 



5D0 




LIMKSTRT 1 TAXEADDR 


5D8 




ATSOCPPL 1 DCBSAV 


5E0 


A*9 


1 A* 10 1 A*11 1 A* 12 1 /////////// 1 A* 13 1 A* 14 


5E8 


A*15 


1 A* 16 1 A* 17 I///////I ASYSNAMS 


5F0 




ACMSSEG 1 ADMSLIO 


5F8 




VCFSTLKP 1 VCFSTLKW 


600 




AFVS 1 AOPSECT 


608 




ADEVTAB 1 AFSTLKP 


610 




AGETCLK 1 AFSTLKW 


618 




APIE 1 AIADT 


620 




AUSER 1 ARDTK 


628 




ASCANN 1 ASSTAT 


630 




ATABEND | ASUBSECT 


638 




AOSMODL 1 AHRTK 


640 




ASTRINIT 1 lADT 


648 




AFREE 1 AFRET 


650 




ADMSPIOC 1 APGMSECT 


658 




AIOSECT 1 ADMPEXEC 


660 




ADIOSECT 1 AABNSVC 


668 




ADMSERL 1 ADMSCRD 


670 




ADMSFREB | ASVCSECT 


678 


AADTLKP 1 ADPUFD 


680 


ASTATEXT | AOSRET 


688 




ACMSRET 1 ASCAHO 


690 




AEXEC 1 ASTART 


698 




AAETLKW 1 AUSABRV 


6A0 




AEXTSECT 1 ASCBPTR 


6A8 




ADMSROS 1 LDMSROS | CDMSROS 


6B0 




AACTLKP 1 AACTNXT 


6B8 




AACTFREE | AACTFRET 


6C0 




AAETNXT 1 ATRKLKP 
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MUCON 



6C8| 

I 

6D0| 

I 

6D8| 

I 

6E0| 

I 

6E8| 

I 
6F0| 

I 
6F8| 

I 

7aoi 

7081 

I 

7101 

I 
7181 



7A0| 



848! 



I 



I — 



A60| 



|__ 



B£0| 



C20| 





ATRKLKPX 1 


AQQTRK 






AQQTRKX 1 


AERASE 









ATYPSRCH 1 


AOPDISK 






AKILLEX 1 


ATFINIS 




_ __._,., 


ARDBUF 1 


AMRBUF 






AFINIS 1 


ASTATE 






ASTATEH 1 


APOINT 






CONCCHS 
















CONINBLK 


1 
J 






CONINBUF 






CMNDLINE 








CMNDLIST 
CONSTACK 














BALRSAVE 








HAITSAVE 
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NUCON 



Hexadecimal 


Field 






Displacement 


Name 








Machine 


Usa^e 




000 


IPLPSH 


DS 


ID 


008 


IPLCCW1 


DS 


ID 


010 


IPLCCW2 


DS 


ID 






ORG 


IPLPSW 


000 


RSTNPSW 


DS 


ID 


008 


RSTOPSW 


DS 


ID 


010 


ACMSCVT 


DS 


IF 


014 


ASYSREF 


DS 


IF 


018 


EXTOPSW 


DS 


ID 


020 


SVCOPSW 


DS 


ID 


028 


PGMOPSW 


DS 


ID 


030 


MCKOPSW 


DS 


ID 


038 


lOOPSW 


DS 


ID 


OUO 


CSH 


DS 


ID 


04 8 


CAW 


DS 


IF 


04C 


NUCRSV1 


DS 


IF 


05 


TIMER 


DS 


IF 


054 


NUCRSV2 


DS 


IF 


058 


EXTMFSW 


DS 


ID 


060 


SVCNPSW 


DS 


ID 


068 


PGMNPSW 


DS 


ID 


070 


MCKNPSW 


DS 


ID 


078 


lONPSW 


DS 


ID 


080 


CPULOG 


DS 


48D 






ORG 


CPULOG 


080 


NUCRSV3 


DS 


2D 


090 


MUCRSV4 


DS 


IF 


094 


MONCLASS 


DS 


1H 


096 


PERCODE 


DS 


1H 


098 


PERADDR 


DS 


IF 


09C 


MONCODE 


DS 


IF 


OAO 


NUCRSV5 


DS 


4D 


OCO 


lOHSAVE 


DS 


XL160 


160 


FPRLOG 


DS 


4D 


180 


GPRLOG 


DS 


16F 


ICO 


ECRLOG 


DS 


16F 



Field Description, Contents, Meaning 



Initial program load PSH 
Initial program load CCW 1 
Initial program load CCH2 

PSH restart new PSH 

PSH restart old PSH 

Address of simulated OS CVT 

Address of nucleus address table 

External old PSH 

Supervisor call old PSH 

Program old PSH 

Machine-check old PSH 

Input/output old PSH 

Channel status word 

Channel address word 

Reserved for IBM use 

Interval timer 

Reserved for IBM use 

External new PSH 

Supervisor call new PSH 

Program new PSH 

Machine-check new PSH 

Input/output new PSH 

CPU logout area 

Reserved for IBM use 

Reserved for IBM use 

Monitor call class number 

Program event recorder code 

Program event recorder address 

Monitor call code 

Reserved for IBM use 

Save area for 1st 160 bytes of storage 

Floating— point register logout area 

General-purpose register logout area 

Extended control register logout area 



Sistem Usage 



200 


SYSTEMID 


DS 


CL32 


220 


INSTALID 


DS 


CL64 


260 


SYSMAME 


DS 


CL8 


268 


IPLADDR 


DS 


1H 


26A 


SYSADDR 


DS 


1H 


26C 


DEVICE 


DS 


IF 


270 


NUCRSV6 


DS 


IF 


274 


FEIBM 


DC 


CL12'FEIBM1 


280 


DIAGTIME 


DS 


CL24 






ORG 


DIAGTIME 


280 


CURRDATE 


DS 


CL8 


288 


CURRTIME 


DS 


CL8 


290 


CURRVIRT 


DS 


IF 


294 


CURRCPUT 


DS 


IF 


298 


LASTVIRT 


DS 


IF 


29C 


LASTCPUT 


DS 


IF 


2A0 


LASTCMMD 


DC 


CL8' ' 


2A8 


PREVCMND 


DC 


CL8' ' 


2B0 


LASTEXEC 


DC 


CL8« • 


2B8 


PREVEXEC 


DC 


CL8' ' 



System name and date 
Installation identification 
Name of IPLed saved system 
Address of IPLed device 
Address of system disk 

Name of device causing last I/O interrupt 
Reserved for IBM use 
54067' FE service number 

Buffer for DIAGNOSE timer 

Current date - MM/DD/YY 

Current time - HH.MM.SS 

Current elapsed virtual time used 

Current elapsed CPU time used 

Previous elapsed virtual time used 

Previous elapsed CPU time used 

Last command issued 

Next to last command 

Last EXEC procedure 

Next to last EXEC procedure 
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NUCON 



decimal 


Field 






lacement 


Hame 






2C0 


LASTLMOD 


DC 


CL8' • 


2C8 


LASTTMOD 


DC 


CL8«ACCESS« 


2D0 


DATIPCMS 


DC 


D'O' 


2D8 


CLKVALHD 


DC 


D'O' 



450 



451 



Field Description, Contents, Meaning 

Last module LOADMOD into main storage 
Last module LOADMOD into transient area 
Date (MM/DD/YY) at last XPL CMS 
Time (STCK form) at midnight (0000 hours) 



Macro and Te^ iibJEa^I Pointers 



2E0 


MACDIRC 


DC 


8A (0) 


300 


HACLIBL 


DC 


18F'-1' 


348 




DS 


3F 


354 


TXTDIRC 


DC 


A(0) 


358 


TXTLIBS 


DC 


18F»-1' 



^ebug Dum£ Parameters 



3A0 


DUMPLIST 


DS 


OD 


3A0 


GBS015 


DC 


A(GPRLOG) 


3A4 


LOC0176 


DC 


A (LOWSAVE) 


3A8 


FIRSTDMP 


DC 


A(0) 


3AC 


LASTDMP 


DC ' 


A(0) 


3B0 


FBS06 


DC 


A(FPRLOG) 


3B4 


DMPTIT 


DC 


A (DMPTITLE) 


3B8 




DC 


4X«FF' 


3BC 


DMPTITLE 


DC 


CL132' • 


440 


GLBLTABL 


DC 


F'O* 


444 




DC 


H'O* 


446 


SVC$202 


SVC 


202 


448 


ERR$202 


DC 


A (* + 4) 


44C 




BR 


14 


44E 




DC 


H'O' 




Batch Monitor 


Information 



BATFLAGS DC 



IX'OO' 



Bits defined in BATRUN 



BATRUM 


EQU 


X'80» 


BATLOAD 


EQU 


X'40' 


BATKCEX 


EQU 


X«20' 


BATRERR 


EQU 


XMO' 


BATCPEX 


EQU 


X'08' 


BATUSEX 


EQU 


X'04' 


BATMOVE 


EQU 


X»02» 


BATTERH 


EQU 


X'OI" 



BATFLAG2 DC 



IX'OO' 



Bits defined in BATFLAG2 





BATXLIM EQU 


X'80' 




BATXCPU EQU 


X'40' 




BATXPRT EQU 


X'20' 




BATXPUM EQU 


X'10» 




BATDCMS EQU 


X'08' 




BATIPLSS EQU 


X'04' 




BATSTOP EQU 


X'02' 


452 


DC 


2X'00' 




Batch Processor Entrjf Points 


454 


ABATPROC DC 


A(0) 


458 


ABATABHD DC 


A(0) 


45C 


ABATLIMT DC 


A(0) 


460 


DC 


4F'0' 



Address of MACRO library directories 
Current MACRO library names 
Reserved for IBM use 
Address of TEXT library directories 
Current TEXT library names 



DEBUG DUMP PLIST 

Address of GPR save area 

Address of low storage save area 

Address of first location to dump 

Address of last location to dump 

Address of FPR save area 

Address of dump title line 

Reserved for IBM use 

Dump title line 

Reserved for IBM use 

Used for alignment 

Common SVC for reentrant code 

User will fill if necessary 

Return to caller 

Reserved for IBM use 



A*1 Batch flags 



Batch monitor running 

Loading batch processor 

Suppress user job execution 

Batch reader error 

CP command executing 

User job executing 

MOVEFILE executing from terminal 

User job being flushed 



A*2 More batch flags 



User job limit exceeded 

CPU time exceeded 

No. printed lines exceeded 

No. punched cards exceeded 

Disabled CMS command called 

Batch IPLing saved system 

Batch stopping after current job 

Reserved for IBM use 



Main entry 

User job ABEND entry 
User job limits table 
Reserved for IBM use 
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NUCON 



Hexadecimal 
Displacement 



470 
490 



t|D8 



500 
504 
508 
50C 
510 
514 
518 
51C 
520 
524 
528 
52C 
52E 
530 
534 
538 
53C 



Field 
Name 

50s Library Pointers 



Field Description, Contents, Meaning 



DOSDIRC 
DOSLIBL 



DC 8A(0) 
DC 18F'-1' 



DOSFLAGS DC 



X»00' 



Bits defined in DOSFLAGS 





DOSMODE 


EQU 


X'80« 




DOSSVC 


EQU 


X«40' 




DOSVSAM 


EQU 


X'20' 




DOSCOMP 


EQU 


XMO' 




DOSPIO 


EQU 


X'08' 




VSMIMSTL 


EQU 


X»04' 


4D9 


DOSRC 


DC 


X'OO' 


4DA 




DC 


2X"00' 


4DC 


ALTASAVE 


DC 


V(LTASAVE) 


4E0 


ABGCOM 


DC 


V (BGCOM) 


4E4 


ASYSCOM 


DC 


V(SYSCOM) 


4E8 


ADOSDCSS 


DC 


A(0) 


4EC 


SVC12SAV 


DC 


F'O' 


4F0 


DOSFIRST 


DC 


A{0) 


4F0 


DOSNUM 


DC 


H«0« 


4F6 




DS 


H 


4F8 


APPSAVE 


DC 


V(PPSAVE) 


4FC 


DOSTRANS 


DC 


A(0) 




Iiee StOj 


cac[e 


Pointers 



A*4 



MAINLIST DC 
MAINSTRT DC 
FREELIST DC 
FREEMUM DC 
MAINHIGH DC 
FREELOWE DC 
FREELOWR DC 
FREEUPPR DC 
ANUCEND DC 
AUSRAREA DC 
CURRSAVE DC 
C0DE203 DC 
PCTCMSFS DS 
ADMSFRT DC 
VCADTLKP DS 
VCADTNXT DC 
VCADTLKW DC 



A(0) 

V (USERAREA) 
V(NUCEND) 
F* 1« 

V (USERAREA) 

V (NUCEND) 
V(TRANSAR) 
A(0) 

V (NUCEND) 

V (INITSUB) 
A(0) 

H'0« 
1H«04« 

V (DMSFRT) 
A (DHSLAD) 
A(DHSLADN) 
A (DMSLADH) 



CojQsole I/O Pointers 



Address of DOS library directories 
Current DOS library names 

A*3 DOS simulation flags 



DOS environment flag 

DOS SVC simulation flag 

DOS VSAM running flag 

DOS compiler running flag 

DOS printer indicator 

VSAM install flag to relocate DCSS table 



540 


CURRIOOP 


DC 


A(0) 


Address 


544 


PENDREAD 


DC 


A(0) 


Address 


548 


PENDMRIT 


DC 


A(CONSTACK) 


Address 


54C 


FSTFINRD 


DC 


A(0) 


Address 


550 


LSTFINRD 


DC 


A(0) 


Address 


554 


AINTRTBL 


DC 


A(0) 


Address 


558 


AOUTRTBL 


DC 


A(0) 


Address 


55C 


NUMFINRD 


DC 


H'0« 


Number 


55E 


NUHPNDNR 


DC 


H'O" 


Number 



DOS return code to user 

Reserved for IBM use 

Address of LTA save area 

Address of partition communication region 

Address of system communication region 

Address of DOS DCSS 

Work area for SVC 12 

Address of first DOSCB in chain 

Number of DOSCBs in chain 

Reserved for IBM use 

Address of problem program save area 

Address of DOS transient area 



Address of 1st block of user free storage 

Address of the start of user free storage 

Address of 1st block of system storage 

Number of blocks of system storage 

High extend of user free storage 

Low extend of system free storage 

Lower limit of system free storage 

Upper limit of system free storage 

Address of end of nucleus storage area 

Address of beginning of user area 

Address of current save area 

Code number of last SVC 203 

% of available user storage to reserve 

DMSFRE work area 

BALR equivalent of ADTLKP 

BALR equivalent of ADINXT 

BALR equivalent of ADTLKW 



of current I/O buffer 
of pending read operation 
of pending write operation 
of finished read buffer 
of last finished read buffer 
of user input translate table 
of user output translate table 
of finished read buffers 
of pending write operations 
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HUCON 



Bexadecimal 


Field 






Displacement 


Name 








Lo^^er Information 


560 


VMSIZE 


DS 


IF 


564 


ALDBTBLS 


DC 


1F«0' 


568 


STRTADDR 


DC 


1F»0« 


56C 


FESTLOC 


DC 


1F»0» 


570 


LASTLOC 


DC 


IF'O' 


574 


LOCCHT 


DC 


1F«0« 


578 


LDRADDR 


DC 


IF'O' 


57 C 


LDRRTCD 


DC 


IF'O' 


580 


PSW 


DC 


ID'O' 


588 


LDRFIAGS 


DC 


IF'O* 


58C 


PRHOLD 


DC 


IF'O' 


590 


TBENT 


DC 


H'O* 


592 


UNRES 


DC 


X'OO' A*5 


593 


HODFLGS 


DC 


IX'OO' A*6 




Bits defined 


in HODFLGS 




NOMAPFLG 


EQU 


X'80"^ 




CLEAROP 


EQU 


X'40' 




M0D2 


EQD 


X'20' 




M0D3 


EQD 


X'10' 




M0D4 


EQU 


X»08' 




MODS 


EQU 


X'04' 




M0D6 


EQU 


X'02' 




M0D7 


EQU 


X'01' 


594 


GET1 


DC 


IF'O' 


598 


DSYM 


DC 


2F'0' 


5A0 


JSYM 


DC 


F'O' A*7 


5A4 


NXTSYM 


DC 


C'Z' 


5A5 




DC 


XL7'0' 


5AC 


ALIASENT 


DC 


IF'O' 


5B0 


DYNAEND 


DC 


IF'O' 


5B4 




DS 


3F 




OS Simulation 


Pointers 


5C0 


FCBTAB 


DS 


OD 


5C0 


FCBFIRST 


DC 


A(0) 


5C4 


FCBMUN 


DC 


H'O' 


5C6 




DC 


X'OO' 


5C7 


OSSFLAGS 


DC 


X'OO' A*8 




Bits def ; 


Lned 


in OSSFLAGS 




COMPSWT 


'equ 


X'80» 




OSSMMU 


EQU 


X'40' 




OSRESET 


EQU 


X'20' 




OSHAIT 


EQU 


X'10' 




DYLD 


EQU 


X'08' 




DYLIBO 


EQU 


X'04' 




DYLIBNOW 


EQU 


X'02' 




DYBBRNM 


EQU 


X'OT 


5C8 




DC 


A(0) 


5CC 


LINKLAST 


DC 


A(0) 


5D0 


LINKSTRT 


DC 


A(0) 


,-.^5D4 


TAXEADDR 


DC 


A(0) 


5D8 


ATSOCPPL 


DC 


V (CPP) 


5DC 


DCBSAV 


DC 


IF'O' 



Field Description, Contents, Heaning 



Virtual storage size 

Address of loader tables 

Module starting address 

Module beginning address 

Module ending address 

Loader location counter 

Loader return address 

Loader return code 

User's starting PSW 

Loader flags 

Pseudo register counter 

Initialize table entries to 

zeros 

Unresolved reference bit fcr CMS loader 

Flags 



NOMAP flag 

CLEAR option flag 

Module generated with DOS option 

Module generated with ALL option 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

DMSLSY R1 save location 

DMSLSY work space 

DMSLSY unigue symbol base 

1st char of unigue symbol 

Rest of unique symbol 

Alias entry point (dynamic load) 

Max. load loc (dynamic load) 

Reserved for IBM 



FCB chain anchor 
Address of first FCB 
Number of FCBs in chain 
Reserved for IBM 
OS simulation flags 



Compiler switch 

DMSSMN unconditional flag 



Dynamic loading in process 
OMIT dynamic library scan 
Dynamic library scan 
Linked via member name 

Reserved for IBM 

Address of last OS linkage block 
Address of entry point of last module 
Terminal attention exit element address 
Address of TMP PLIST for TSO programs 
DCB restoragion address 
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NUCON 



Hexadecimal 
Displacement 

5E0 



5E1 



5E2 



5E3 



5E4 
5E6 



5E7 



5E8 



5E9 



Field 
Name 

OPTFLAGS DC 



IX'OO" 



Jiiis defined in OPTFLAGS 
NOIMPEX EQU X«80« 



NOIMPCP EQU 

HOSTDSYN EQU 

NOABBREV EQU 

NGPAGREL EQU 

NOVMREAD EQU 

MISFLAGS DC 



X'40' 
X'20' 
XMO* 
X'08' 
X'04' 



Field Description, Contents, Meaning 
A*9 Option flags 



No implied EXEC commands 

No implied CP commands 

No standard synonyms 

No command abbreviations 

No automatic page release 

No automatic VM console read 



IX'OO' A*10 Miscellaneous flags 



Bits defined in MISFLAGS 



KXSWITCH 


EQU 


X'80' 


KGSWITCH 


EQU 


X'40' 


RELPAGES 


EQU 


X'20' 


GBAFDEV 


EQU 


X'10' 


QSWITCH 


EQU 


X'08' 


NODDSK 


EQU 


X'04' 


NEGITS 


EQU 


X'02' 


MISFL01 


EQU 


X'01' 



Halt execution switch 

Halt tracing switch 

Release pages switch 

Graphics console 

Quiet switch console read 

Don't access d disk 

Negative return code from DMSITS 

Reserved for IBM use 



MSGFLAGS DC 



IX'OO' A*11 Message flags 



Mis defined in MSGFLAGS 
NOTYPOUT EQU X'80'~ 



NOTYPING EQU 

NCRDYMSG EQU 

NORDYTIM EQU 

REDERRID EQU 

NOERRMSG EQU 

NCERRTXT EQU 

SPECLF EQU 

DBGFIAGS DC 



X'40' 
X'20» 
X'10' 
X'08' 
X'04' 
X'02' 
X'01' 



No typing- set by EXEC 
No typing — set by HT 
No ready message to be typed 
No time on ready message 
Error code to be typed in red 
No error messages to be typed 
No text on error messages 
Linefeed for typewriter CCW 



IX'OO' A*12 DEBUG flags 



Bits defined in DBGFLA6S 



DBGEXEC EQU 

DBGPGMCK EQU 

DBGEXINT EQU 

DBGABN EQU 

DBGNSHR EQU 

DBGSHR EQU 

DBGRECUR EQU 

DC 
EXECFLAG DC 



X'80' 
X'40» 
X'20' 
X'10' 
X'08' 
X'04' 
X'02' 

2X'00' 
IX'OO' 



A*13 



Bits defined in EXECFLAG 

EXECRUN EQU X'80' 

PROTFLAG DC IX'OO' A*14 

Bits defined by PROTFLAG 

PRFPOFF EQU X'80' 

PRFTSYS EQU X'40' 

PBFUSYS EQU X'20' 

TSOFLAGS DC IX'OO' A*15 



DEBUG executing 

Debug entered by a program check 

Debug entered by an external interrupt 

Debug entered from DMSABN 

No shared segment present 

Shared segment present 

Recursion flag 

Reserved for IBM use 
EXEC flags 



EXEC command running 
Storage protection flags 



Storage protection is shut off 
System routine in transient area 
System routine in user area 
TSO flag byte 



Bits defined in TSOFLAGS 
TSOATCNL EQU X'80' 



SUBFLAG DC 



IX'OO' 



Read canceled by attention 
A*16 CMS subset flag byte 
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MDCON 



Hexadecimal 
Displacement 



Field 




Name 




Bits defined 


In SUBFLAG 


SUBREJ EQO 


X'08' 


SUBRTN EQU 


X'04' 


SUBIMIT EQO 


X • 2 ' 


SUBACT EQU 


X'01' 



Field Description, Contents, Meaning 



Subset command reject 
Subset return 
Subset Initialization 
Subset active 



SEA 



DCSSFLAG DC 



X'OO' 



A* 17 DCSS Indicators 



Bits defined In DCSSFLAG 





DCSSAVAL 


EQU 


X«80» 




DCSSLDED 


EQU 


X'40' 




DCSSCPNV 


EQU 


X'20' 




DCSSLDSD 


EQU 


XMO' 




DCSSVTNA 


EQU 


X'08» 




DCSSVTLD 


EQU 


X'OU« 




DCSSOVLP 


EQU 


X'02» 




DCSSJLNS 


DC 


X'OI* 


5EB 




DC 


X'OO" 


SEC 


ASYSNAHS 


DC 


V (SYSMAMES) 


5F0 


ACMSSEG 


DC 


F'O* 


SF4 


ADMSLIO 


DC 


V(DMSLIO) 


5F8 


VCFSTLKP 


DC 


V(DMSLFS) 


SFC 


VCFSTLKH 


DC 


V (DMSLFSW) 




Nucleus Address Table 


600 


SYSREF 


DS 


OD 


600 


AFVS 


DC 


V (FVS) 


6oa 


AOPSECT 


DC 


V(OPSECT) 


608 


ADEVTAB 


DC 


V (DEVTAB) 


60 C 


AFSTLKP 


DC 


V(FSTLKP) 


610 


AGETCLK 


DC 


V (DMSINM) 


6ia 


AFSTLKW 


DC 


V(FSTLKW) 


618 


APIE 


DC 


V (PIE) 


61C 


AIADT 


DC 


V (lADT) 


620 


AUSER 


DC 


V(USERSECT) 


624 


ARDTK 


DC 


V(DMSDIOR) 


628 


ASCANN 


DC 


V(DHSSCNN) 


62C 


ASSTAT 


DC 


A(0) 


630 


ATABEMD 


DC 


V (TABEND) 


634 


ASUBSECT 


DC 


V (SUB SECT) 


638 


AOSMODL 


DC 


A(0) 


63C 


AWRTK 


DC 


V(DMSDIOW) 


640 


ASTRINIT 


DC 


¥ (DMSSMNST) 



CMSSEG segment exists 

CMSSEG loaded 

CP or Invalid command Issued 

Loading S-dlsk 

DMSSVT not available 

DMSSVT Is loaded 

VM storage overlaid by DCSS 

CMSSEG just loaded nonshared 
Reserved for IBM use 

Address of CMS saved segment 

BALR equivalent of FSTLKP 
BALR equivalent of FSTLKW 
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NOCOH 



Hexadecimal 


Field 






Displacement 


Name 






6Hi\ 


lADT 


DC 


V (ADTSECT) 


648 


AFREE 


DC 


V (FREE) 


64C 


AFBET 


DC 


V (FRET) 


650 


ADMSPIOC 


DC 


V(DMSPIOCC) 


654 


APGMSECT 


DC 


V (PGMSECT) 


658 


AIOSECT 


DC 


V (lOSECT) 


65C 


ADMPEXEC 


DC 


V (DMSEBE) 


660 


ADIOSECT 


DC 


V(DIOSECT) ' 


664 


AABNSVC 


DC 


V (DMSABNUA) 


668 


ADHSERL 


DC 


V (DMSERL) 


66C 


ADNSCRD 


DC 


V (DMSCRD) 


670 


ADHSFREB 


DC 


V(DMSFREB) 


674 


ASVCSECT 


DC 


V(SVCSECT) 


678 


AADTLKP 


DC 


V (ADTLKP) 


67C 


AUPUFD 


DC 


V(DMSAUDUP) 


680 


ASTATEXT 


DC 


A(0) 


684 


AOSHET 


DC 


V (OSRET) 


688 


ACMSRET 


DC 


V(CMSRET) 


68C 


ASCAMO 


DC 


V (DMSSCNO) 


690 


AEXEC 


DC 


V(DMSEXC) 


694 


ASTART 


DC 


V (DMSLDRA) 


698 


AADTLKH 


DC 


V(ADTLKH) 


69C 


AUSABRV 


DC 


V(USAERV) 


6A0 


AEXTSECT 


DC 


V(EXTSECT) 


6A4 


ASCBPTR 


DC 


V (SCBPTR) 


6A8 


ADMSROS 


DC 


A(0) 


6AC 


LDMSROS 


DC 


H'O' 


6AE 


CDMSROS 


DC 


H'O' 


6B0 


AACTLKP 


DC 


V (DMSLAF) 


6B4 


AACTNXT 


DC 


V(DMSLAFNX) 


6B8 


AACTFREE 


DC 


V (DMSLAFFE) 


6BC 


AACTFRET 


DC 


V(DMSLAFFT) 


6C0 


AADTMXT 


DC 


V (ADTNXT) 


6C4 


ATRKLKP 


DC 


V(DMSTRK) 


6C8 


ATRKLKPX 


DC 


V (DMSTRKX) 


6CC 


AQQTRK 


DC 


V(DMSTQQ) 


6D0 


AQQTRKX 


DC 


V (DMSTQQX) 


6D4 


AERASE 


DC 


V(DMSERS) 


6D8 


ATYPSRCH 


DC 


V(TYPSRCH) 


6DC 


AUPDISK 


DC 


V(DMSAUD) 


6E0 


AKIILEX 


DC 


V(KILLBX) 


6E4 


ATFINIS 


DC 


V(DMSFNST) 


6E8 


AHDBUF 


DC 


V (DMSERD) 


6EC 


ANRBDF 


DC 


V(DHSBHR) 


6F0 


AFIMIS 


DC 


V(DMSrNS) 


6F4 


ASTATE 


DC 


V(DMSSTTE) 


6F8 


ASTATEH 


DC 


V (DMSSTTH) 


6FC 


APOINT 


DC 


V (POINT) 



Field Description, Contents, Meaning 



lA 



A^ 



o.^^J'^ 



J V 



p/^*"' 
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MUCON 



Hexadecimal 
Displacement 



BAO 
BEO 
C2 



C60 



Field 
Name 

Terminal Buffers 







___— 




700 




DS 


OD 


700 


CONCCHS 


CCH 


0,0,X'60',0 


708 




CCH 


3,0,X'20',1 


710 


COMIHBLK 


DC 


A(0) 


714 




DC 


XL1«0A» 


715 




DC 


AL1 (134) 


716 


CONINBOF 


DS 


CL134 


7A0 




DS 


OD 


7A0 


CHNDLINE 


DS 


CL160 


84 




DS 


OD 


840 




DC 


CL8'EXEC« 


84 8 


CHMDLIST 


DS 


CL536 


A60 




DS 


OD 


A60 


CONSTACK 


DS 


CL320 




Save Areas 





Field Description, Contents, Meaning 



Console read and write CCH 
NOP to get CE and DE together 



FBEESAVE DS 
BALRSAVE DS 
WAITSAVE DS 



16F 
16F 
16F 



ISAM and AMSERV Control Words 

DS OD 

£6££§Si of available user storage to reserve 
for GETVIS^FREEVIS use when runnins'llAl" 



C60 


PCTVSAM 


DC 


H'50' 


C62 




DS 


1H 


C64 




DS 


IF 



50 percent for CMS/VSAM use 
Reserved for IBM use 
Reserved for IBM use 



S^c[innin5 and End of IKQLAM ()ili6S iB storage) 



C68 


ADIKQLAB 


DC 


A(X'FFFFFF' 


C6C 


NDIKQLAB 


DC 


A(0) 


C70 


AHURTBL 


DC 


V(RURTBL) 


C74 


ADMSVIB 


DC 


V(DMSVIB) 


C78 


AVIPWORK 


DC 


A(0) 


C7C 


VSAMFLG1 


DC 


X'OO' 




VSAMRUN 


EQU 


X'80' 




VSJOBCAT 


EQU 


X'40' 




VI PI NIT 


EQU 


X'20' 




VSAMSERV 


EQU 


XMO* 




VIPSOP 


EQU 


X'08' 




VIPTCLOS 


EQU 


X'04' 




VSAMSOS 


EQU 


X'O* 


C7D 




DS 


3X 


ceo 


AVSAMSYS 


DC 


A(0) 


C84 


AAMSSYS 


DC 


A(0) 


C88 


AVSREOJ 


DC 


V {$$BE0J4) 


C8C 


AVSRWORK 


DC 


A(0) 


C90 


ACBLIST 


DC 


A(0) 


C94 




DS 


3F 


CAO 




DS 


OD 



Set to A (IKQLAB) when it is in storage 

Set to end of IKQLAB when in storage 

VSAM resource table address 

AAddress of VSAM interface bootstrap 

Address of DHSVIP work area 

VSAM information flag 

VSAM system loaded 

VSAM job catalog active 

DMSVIP has been initialized 

CMSAMS system loaded (AMSERV running) 

OS interface SVC 2 call 

OS 'tclose' call 

OS AMSERV running 

Reserved for IBM use 

Address of VSAM saved system 

Address of CMSAMS saved system 

DMSVSR entry point from VSAM $$BACLOS 

Address of DMSVSR work area 

ACB list built by OPEN/CLOSE 

Reserved for IBM use 
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OPSECT 

gPSECT: MAJOR PSECT FOR ALL 1^0 OPERATION LISTS 

OPSECT describes the fields used by several programs as parameter lists for reading and 
writing on disks and other devices. 

The OPSECT DSECT is pointed to by the AOPSECT field (hex 604) in NUCON. 



1 

0| 




CMSOP 




8| 




FILENAME 




101 




FILETYPE 




181 


FILEMODE 1 FILEITEM | 


FILEBUFF 1 

1 


201 




FILEBYTE | FILEFORM | FILECOUT | 


28 1 




FILEREAD | 


SAVER 14 1 


301 




SAVER15 1 


SAVERO 1 


38| 


~ 


SAVER1 1 


CMSNAME 1 


401 


CMSNAME (cont.) 1 


CONREAD 1 


48| 




CONREAD (cont.) 1 


CONRDBUF 1 

■ 


501 A* 
581 


1 


1 1 CONRDCNT I///////////////////////////I 

WAITLIST 1 


601 




CONWRITE 


1 


68| 




CONHRBUF 1 A*2 


1 CONWRCNT 1 


701 




WAITLST 




78| 


~ 


WAITDEV 1 




801 


1 


READLST 1 


881 




READLIST (cont.) 1 


RDBUFF 1 


901 
981 


RDCCW 1 RDCOUNT | 
PUNCHLST (cont.) 1 


PUNCHLST 1 
PDNBUFF 1 


A0| 




PUNCOUNT 1 


PRINTLST 1 


A8| 




PRINTLST (cont.) 1 


PRBDF 1 


B0| 




PRCNT 1 


TAPELIST 1 


B8| 




TAPELIST (cont.) | 


TAPEOPER 1 


C0| 




TAPEOPER (cont.) | 


TAPEDEV 1 


C8| A*3 

L 


1 TAPEBUFF 1 


TAPESIZE 1 
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OPSECT 



I 

DO I TAPECOUT | CLOSIO 

D8| CLOSIO (cont.) I CLOSIODV 

E0| CLOSIODV (cont.) I 



118 
120 

1281 

I 
1301 






EXLEVEL 



EXMUH 



EXF1 
EXADD 



FCBIO 



A*4 



Hexadecimal Field 
Displacement Name 



3C 



41 



l!§iS i^O OE§Eation List 






PLIST 


DS 


OD 





CHSOP 


DS 


CL8 


8 


FILENAME 


DS 


CL8 


10 


FILETYPE 


DS 


CL8 


18 


FILEMODE 


DS 


CL2 


1A 


FILEITEM 


DS 


H 


1C 


FILEBUFF 


DS 


F 


20 


FILEBYTE 


DS 


F 


24 


FILEFORM 


DS 


CL2 


26 


FILECOUT 


DS 


H 


28 


FILEREAD 


DS 


F 




POINTERS 


EQU 


FILEITEM 




AFST 


EQU 


FILEBUFF 




lOAREA 


EQU 


FILEBUFF 




lOLENGTH 


EQU 


FILEBYTE 




Immediate Bec[ister Save Area 


2C 


SAVER14 


DC 


F»0' 


30 


SAVER 15 


DC 


F»0' 


34 


SAVERO 


DC 


F»0« 


38 


SAVER 1 


DC 


F'O' 



CMSNAME DC CLS'FILE' 
Console Parameter Lists 

DS OF 
Read Console 



44 


CONREAD 


DC 


CL8'WAITRD' 


4C 


CONRDBUF 


DC 


V (CMNELINE) 


50 


CONRDCOD 


DC 


C'U' A*l 






DC 


X'O' 


52 


CONRDCNT 


DC 


AL2 (0) 


54 




DC 


F'O" 



Field Description, Contents, Meaning 



I/O operation command word 

Filename 

Filetype 

Filemode 

Item identification number 

Input output buffer 

Data Count 

File format: fixed/variable records 

Records per block 

Read data count 



Buffer area location 
Buffer length 



Temporary RIM save 
Temporary R15 save 
Temporary RO save 
Temporary R1 save 

Default filename 



Terminal read 

Address of input buffer 

Translate code 

Data byte count 
Reserved for IBM use 
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OPSECT 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



Console Wait List 



58 


WAITLIST DS 


OF 


58 


DC 
W£ii§ Console 


CL8«C0NWAIT' 


60 


CONWRITE DS 


OF 


60 


DC 


CL8»TyPLIN' 


68 


CONWRBUF DC 


A (0) A*2 


6C 


COHWECOD DC 


C'B« 


6E 


DC 


X'OO' 


6E 


CONWBCNT DC 


AL2 (0) 




Mait PSESie^er 


List 


70 


WAITLST DS 


OF 


70 


DC 


CLS'WAIT' 


78 


WAITDEV DC 


CL4«C0N1' 


7C 


DC 


F»0" 


80 


DC 


F'O' 




Reader Paraineter List 


84 


DS 


OF 


84 


READLST DC 


CL8'CARBRD' 


8C 


RDBUFF DC 


A(0) 


90 


HDCCW DC 


H'O' 


92 


RDCOUNT DC 


H«0» 




Card Punch Parameter List 


94 


PUSCHLST DS 


OF 


94 


DC 


CL8'CARDPH« 


9C 


PUNBUFF DC 


A(0) 


AO 


PUNCOUNT DC 


A(0) 




JP£iSie£ Parameter List 


A4 


PRINTLST DS 


OF 


A4 


DC 


CL8«PRI11TR' 


AC 


PRBUF DC 


A(0) 


BO 


PBCMT DC 


A(0) 




Tafie Parameter 


List 


B4 


TAPELIST DS 


OF 


B4 


DC 


CL8«TAPEI0' 


BC 


TAPEOPER DC 


CL8' • 


C4 


TAPEDEV DC 


CL4'TAP1' 


C8 


TAPEHASK DC 


X'OO" A*3 


C9 


TAPEBUFF DC 


AL3 (0) 


CC 


TAPESIZE DC 


F»0' 


DO 


TAPECOUT DC 


F«0» 



Location of message text 
Color code 

Length of message text 



Address of DMSCWT 

Symbolic address of console 



Buffer address 
CCH fcyte count 
Bytes actually read 



Punch buffer address 
Punch CCW count 



Printer buffer address 
Printer data count 



Tape operation command 
Tape symbolic device 
Set mode 
Buffer location 



Tape counter 
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OPSECT 

Hexadecinal Field 

Displacement Name Field Description, Contents, Meaning 



^l2§§ OUi £§lice Dependent Dat a Set On Unit Record Ecfuijjejnt 

D4 CLOSIO DS OF 

Da DC CL8»CL0SI0' Operation 

DC CLOSIODV DC CL8 • • Device type 
E4 DC 4X«FF» 

E8 DC 6D«0' - Reserved for IBM use 
^itorajge for EXEC Bootstrap 

118 EXLEVEL DC F'O' EXEC level 

lie EXF1 DC F«1« Follows EXEC level 

120 EXNUM DC F'O' Number doublewords free storage 

124 EXADD DC F'O' Address of DMSEXT in storage 

128 DC 2F»0' - Reserved for IBM use 

Storage for OS Macro Simulation Routines 

130 FCBIO DC A(0) - Address of last FCB used during I/O 
134 OSIOTYPE DC X'DD' - A*U OS access method type 
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OSFST 



OSFST: OS FILE STATUS TABLE 

OSFST describes the fields of an OS file status table. When an OS disk is accessed, 
DMSROS builds and fills in an OSFST block, which is comparable to a CMS FST block. This 
block is released by DMSALU. 





8 

10 

18 



48 



FO 

F8 

100 

108 



OSFSTFM 



I /////////// I OSFSTBLK I OSFSTFVF 



OSFSTLRL 
OSFSTNXT 



! A*1 I///////// I A*2 I A +3 
I OSFSTCHR 



OSFSTEND 



OSFSTDSN 






I OSFSTDSK I OSFSTTYP 
OSFSTNTE I//////////////////// 

OSFSTTEK I /////////////////////////// 

///////////////////////////I /////////////////////////// I 
/////////////////////////// I 



Hexadecimal Field 
Displacement Name 



F 
10 
14 



OSFSTFM 


DS 


1H 




DS 


1H 


OSFSTBLK 


DS 


1H 


OSFSTFVF 


DS 


1H 


OSFSTLRL 


DS 


IF 


OSFSTRFM 


DS 


1X 




DS 


IX 


Bits defined 


in OSFSTFLG 


OSFSTFLG 


DS 


IX 


OSFSTALT 


EQU 


X'80' 


OSFSTMVL 


EQU 


X«08' 


OSFSTDBK 


EQU 


X'40' 


OSFSTUMV 


EQU 


X'02' 


OSFSTRSW 


EQU 


X'01' 


OSFSTXNO 


DS 


IX 


OSFSTNXT 


DS 


IF 


OSFSTCHR 


DS 


5X 



Field Description, Contents, Meaning 

Disk mode 

Reserved for IBM use 
Block size 
Fixed/variable flag 
Logical record size 
A*1 OS record format 

Reserved for IBM use 



A*2 Flag byte 

Alternate track indicator 
Multiple volume data set 
Block size not specified in DSCB 
Unmoveable data set 
Indicates point+1 just issued 

A*3 Number of data extents on disk 
Next OS FST 
CCHHR of last I/O operation 
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OSFST 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



19 


OSFSTEND 


DS 


5X 


IE 


OSFSTDSH 


DS 


^^c 


4A 


OSFSTXTN 


DS 


170X 




0SFSTEX4 


EQU 


OSFSTXTN+30 


F4 


OSFSTDSK 


DS 


1H 


F6 


OSFSTTYP 


DS 


1H 


F8 


OSFSTNTE 


DS 


5X 


FD 




DS 


3X 


100 


OSFSTTRK 


DS 


IF 


104 




DS 


4F 


118 




DS 


OD 




OSFSTLTH 


EQU 


(♦-OSFST) /a 



Current extent end 

Data set name 

Data extents description 

Location of 1th extent from DSCB3 

Disk address (OCDU) 

Disk device type 

See OSADT for type flags 

Used to save CCHHR for NOTE macro 

Reserved for IBM use 

No. tracks per cylinder 

Reserved for IBM use 

OS FST length in doublewords 
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OVSECT, PCTAB 



OVSECT: DESCEIBES THE FIRST FEW LOCATIONS OF DMSOVS 



OVSECT is used by module DMSOVS to provide trace information requested by SVCTRACE. 



I 

I 

8 I 



OVSGO 
AWAIT 



AEBR 
LENOVS 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



liii§ U12E2 describes t^e First Few Words jof the DMSOVS Module 

Branch to this point for TRACE 

Address of DMSERE 

Address of CONWAIT 

Length of DMSOVS doublewords 






OVSGO 


B 


*_* 


a 


AERR 


DC 


A(0) 


8 


AWAIT 


DC 


A(0) 


C 


LENOVS 


DC 


A(0) 



PCTAB: PROGRAM CHECK OPTION TABLE 

PCTAB is used by DOS/VS routines in the event of a program check. The address of PCTAB 
is in bytes X'64' and X'65' of the partition communication region (BGCOM) . 



PCROOT 



PCSAVE 



Hexadecimal Field 
Displacement Name 





PCTAB 


EQU 


*_8 





PC ROUT 


DC 


F'O' 


u 


PCSAVE 


DC 


F'0« 



Field Description, Contents, Meaning 



Program check routine 
Program check save area 

PCROOT can contain one of three values: zero (indicating that no STXIT macro was issued) , 
the address of a user program check routine (indicating that th STXIT macro was issued) , 
or the complement of the address of a user program check routine (indicating that the 
routine specified in the user STXIT macro was already in use) . 

PCSAVE can contain either zero (indicating that no STXIT macro was issued) , or the 
address of the user save area (indicating that the STXIT macro was used) . 
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PDSSECT 



PDSSECT: DIRECTORY TABLE FOR BPAM SIMULATION 



PDSSECT describes the fields of the in-storage directory that is used in OS simulation of 
BPAH. 



I 



DIRNAHE 



DIRPTR 



8 I A*1 I A*2 I CORESIZE | PDSBLKSI | A*3 I ////////// I 

I 1 



Hexadecimal Field 
Displacement Name 






DIRNAME DS 


3H 




6 


DIRPTR DS 


1H 




8 


TEMPBYTE DS 


IX 


A*1 


9 


NEWBLKS DS 


IX 


A*2 


A 


CORESIZE DS 


1H 




C 


PDSBLKSI DS 


IB 


A*3 


E 


CHNGBYTE DS 


IX 




F 


DS 


IX 







PDSDIR DS 


OF 





Field Description, Contents, Meaning 

MACLIB identifier 

Item pointer to start of directory 

If $ , then PDS is in $PDSTEMP file 

No. new blocks added to PDS by STOW 

Size of dictionary in bytes 

Block size of dictionary 

Indicates updates to directory 

Reserved for IBM use 

Start of in-storage directory 
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PGM SECT 

PGMSECT: PROGEAjJ IMTEBBUPT WOBK AREA 

PGMSECT describes the fields used by DMSITP for saving registers, old PSH, and other data 
for handling program interrupts. 

The PGMSECT DSECT is pointed to by the APGMSECT field (hex 654) in NUCON, 





8 

10 



28 
30 
38 
UO 

78 
80 
88 
90 



DEBPSW 


1 /////////////////////////// 1 


PICADDR 
OPSH (cont.) 


1 
1 


OPSW 1 


TEMPOLD i 


R13AREA 


TEMPNEW 

1 

p 


1 




PSAVE 


• 




1 

1 


SCBPTR 1 


SCBWORK 


1 


SCBSAV12 1 


SCBSAV13 


1 


SCBSAVm 1 



AUPIE 



Bexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



28 
30 
38 
3C 



Storage for Projgram Interrupt Routine (DMSITP) 
F«0« ,V(DMSDBG) Point to debug 






DEBPSW 


DC 


F'O' , 


8 


PIE 


DS 


OD 


8 


PICADDR 


DC 


F'O' 


C 


OPSW 


DC 


2F'0' 


ia 




DC 


5F'0' 



TEMPOLD DC 

TEMPBEW DC 

R13AREA DC 

PSAVE DC 



8X'00' 
8X'00' 
F'O' 
16F'0' 



Program interrupt element 

PICA address from recent SPIE 
Old PSW after program interrupt 
Regs: R14 ,R15,R0 ,R1, R2 

End program interrupt element 

Work area 

Saved R13 

Regs saved at interrupt time 
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PGMSECT 



Hexadecimal Field 
Displacement Name 



7C 



SCBPTR 



DC 



F'O' 



Field Description, Contents, Meaning 
Pointer to first STAE control block 



Si£§ defined in SCBPTR 

STAEBIT EQU X'80' 

STAIBIT EQU X»40' 

RETRYBIT EQU X«20' 



80 


SCBHORK 


DC 


A(0) 


8H 


SCBSAV12 


DC 


A(0) 


88 


SCBSAV13 


DC 


A(0) 


8C 


SCBSAV14 


DC 


A(0) 


90 


AUPIE 


DS 


A 



Address of work area for STAE exit routine 
Address of reg 12 save area for DMSSAB 
Address of reg 13 save area for DMSSAB 
Address of reg 14 save area for DMSSAB 
Address of user's PIE, in SPIE exit 



216 IBM VM/370: Data Areas and Control Block Logic 



PIBADB 

RMh^l- PROGRAM INFORMATION BLOCK 

PIBADR contains a save area address and interrupt information. PIBADR is invoked by the 
PIBTAB macro and is often referred to by this macro name. The PIBPT field (hex 5A) in 
the BGCOM block points to the PIBADR block. 



I A*1 1 A*2 I PIBLOGID 

I- 
8 I PIBSAV2 

L 



PIBSAVE 



I 

I A*3 I A*4 I A*5 I A*6 | 



Hexadecimal Field 
Displacement Name 






PIBFLG 


DS 


X 


A*1 


1 


PIBCNCL 


DS 


X 


A*2 


2 


PIBLOGID 


DS 


XL2 




4 


PIBSAVE 


DS 


XL4 






AEFLG 


EQU 


PIBADR+8 




8 


PIBSAV2 


DS 


XL4 




C 


PIBPUBAS 


DS 


X 


A*3 


D 


PIBLUBID 


DS 


X 


A*U 


E 


PIBLUBNO 


DS 


c 


A*5 


F 


PIBFLG2 


DS 
ORG 


c 

PIBADR 


A*6 





PIBCOMRA 


DS 


XL2 




2 


SYSLUBX 


DS 


XL2 




^ 


INTINFO 


DS 


XL4 






SVCIC 


EQU 


INTINF0X3 




8 


PIBECB 


DS 


XL2 




A 




DS 


XL2 





Field Description, Contents, Meaning 

Flags 

Cancel code 

SYSLOG ID 

Address of save area 

Save area address 

Address of system save area 

PUB assign flags 

LUB no, of first problem program LUB 

Number of LUBs 

More flags 

PIB extension DSECT 
Communication region address 
System class LUB address 
Interrupt information 

Program interrupt key 
Reserved for IBM use 
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PIB2TAB 



PIB2TAB: PROGBAM INFORMATION BLOCK EXTENSION 



PIB2TAB is an extension of the PIBTAB block. For each PIB table entry, an entry exists 
in the PIB table extension block (PIB2TAB) . 

The PIB2PTR field (hex 7C) in the BGCOM block points to the PIB2TAB block. 



I PIBC0MR1 I SYSLOBX | INTINFO | 

8 I PIBECB I P IBP IK I ////////////// I 



Hexadecimal Field 
Displacement Name 






PIBC0MR1 


DS 


XL2 


2 


SYSLOBX 


DS 


XL2 


4 


INTINFO 


DS 


XL4 




SVCIC 


EQU 


INTINFO+3 


8 


PIBECB 


DS 


XL4 


C 


PIBPIK 


DS 


XL2 


£ 




DS 


XL2 



Field Description, Contents, Meaning 



Address of communications region 

System LUB index 

Used for interruption code 

SVC interrupt code 

Address of termination ECB , if any 

Program interrupt key 

Reserved for IBM use 
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PUBADR 

PUBAER: PHISICAL UNIT BLOCK TABLE 

PUBADR is a table defining the physical devices being used by CMS/DOS. The simulated 
PUBADR has eighteen 8-byte entries, one for each device supported by CMS. Also included 
here is the DSECT used by DOS/VS routines. Both DSECTs define the same storage. The 
simulated PUBADR is invoked by the MAPPUB macro; the DOS/VS DSECT is invoked by the 
PUBTAB macro. 

The address of the PUBAER is at displacement X'40' of BGCOM. 



I 



PUBCUU 



I////////I A*1 I A*2 I A*3 I A*U I A*5 | 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 






PUBCUU 


DS 


XL2 




2 




DS 


X 




3 


PUBDSKM 


DS 


X 


A*1 


4 


PUBDEVT 


DS 


X 


A*2 


5 


PUBTAPMI 


DS 


X 


A*3 


6 


PUBTAPM2 


DS 


X 


A*a 


7 


PUBTAP7 


DS 


X 


A*5 



Channel and device number 

Reserved for IBM use 

Disk mode if assigned DASD 

Device type code 

CMS tape set mode attributes 

DOS tape set mode attributes 

7-track indicator 
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PUBADR 



PUBADR defines the fields of a physical unit block table as used 
invoked by the PUBTAB macro. 



in CMS/DOS. PUBADR is 



I PUBCHANN I A*1 | A*2 | A*3 | A*U | A*5 | A*6 | 



Hexadecimal Field 
Displacement Name 






PUBCHANN 


DS 


XL2 




2 


PUBCHQPT 


DS 


X 


A*1 


3 


PUBERR 


DS 


X 


A*2 


4 


PUBDEVTY 


DS 


X 


A*3 


5 


PUBOPTN 


DS 


X 


h*H 


6 


PUBCSFLG 


DS 


X 


A*5 


7 


PUBJCFLG 


DS 


X 


A*6 




PUBHIT 


EQU 


♦-PUBADR 






PUBPTR 


EQU 


NEXTPUB 





Field Description, Contents, Meaning 

Channel and device number 

Reserved for IBM use 

Error retry counter or TEB point 

Device type code 

Set mode command or other options 

Channel scheduler flags 

Job control flags 

Length of PUB table 

Pointer to original PUB 
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PUBOWHER 

PUBOWNER: PHYSICAL UNIT BLOCK OWNERSHIP TABLE 

PUBOHNER is comprised of a 2-byte entry for each entry in the PUB table. For CMS/DOS, 
there are eighteen 2-byte entries. The address of the PUBOWNER table is at displacement 
X»78' of the system communication table (SYSCOM) . 

r ] 

10 I I 



Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 



PUBOWNER DS OH PUB ownership table 

ENTRY PUBOWNER 
DS 18X«000« PUB owner 

PUBOWNER entries have the following meanings: 



Bite 



Value 
X'OO' 




X'40' 


1 


X'01 ' 



Meaning 

The physical unit is reserved. 

CMS is waiting for the volume to be mounted. 

Background partition owns the physical unit. 
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SSAVE 



SSAVE: SYSTEM SAVE AREA 



SSAVE is used by DMSITS to save the value of the SVC old PSW, the caller's registers, and 

other necessary control information required to process the SVC and return to the 

caller. Since SVC calls can be nested, several of these save areas can exist at one 

time. The system save area is allocated in protected free storage. SSAVE is invoked via 
the CMSAVE macro. 



0| A*1 


1 A*2 1 CODE 1 


CALLER 


- 1 


8| 


CALLEE 






101 
181 


OLDPSH 
NHMBET 1 


ERRET 


— 1 


20 1 


EGPBO 1 


EGPR1 




28 1 


EGPB2 1 


EGPR3 




30 1 


EGPB4 1 


EGPR5 




381 


EGPB6 1 


EGPR7 




401 


EGPB8 1 


EGPR9 




481 
50 1 


EGPB10 1 
EGPB12 1 


EGPR11 
EGPR13 


— 1 


581 


EGPB14 1 


EGPR15 




60| 
68( 


EFPRO 
EFPR2 







70| 


EFPR4 






781 


EFPR6 


SSAVEHXT 




801 


CHKWHD1 1 




88| 
901 


SSAVEPRV 1 
OSTEMP 1 A*3 1 


OSAVEPTR 
KEYS 


1 


98| 


KEYS (cont.) 1 


XGPRO 




A0| 


XGPB1 1 


XGPR15 




A8| 


XCOUNT 1 


CHKHRD2 
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SAVE 



Hexadecimal 
Displacement 



2 

8 

10 
18 
1C 

20 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 
4C 
50 
54 
58 
5C 

60 
60 
68 
70 
78 

80 
84 
88 
8C 

90 



Field 






Name 






OVIND 


DS 


X 


TYPFLAG 


DS 


BL1 


liis defined 


in TYPFLAG 


TPFERT 


EQU 


X'80' 


TPFNS 


EQU 


X'40' 


TPFB01 


EQU 


X«20' 


TPFUSR 


EQU 


X'10' 


TEFACB 


EQU 


X'08' 


TPFSV3 


EQU 


X«02' 


TPFSVO 


EQU 


X'OI* 


CODE 


DS 


H 


CALLER 


DS 


A 


CALLEE 


DS 


D 


OLDPSH 


DS 


D 


NRMRET 


DS 


A 


ERRET 


DS 


A 


EGPRS 


DS 


OF 


EGPRO 


DS 


F 


EGPR1 


DS 


F 


EGPR2 


DS 


F 


EGPR3 


DS 


F 


EGPR4 


DS 


F 


EGPR5 


DS 


F 


EGPR6 


DS 


F 


EGPR7 


DS 


F 


EGPH8 


DS 


F 


EGPR9 


DS 


F 


EGPR10 


DS 


F 


EGPR11 


DS 


F 


EGPR12 


DS 


F 


EGPR13 


DS 


F 


EGPR14 


DS 


F 


EGPR15 


DS 


F 


EFPRS 


DS 


OD 


EFPRO 


DS 


D 


EFPR2 


DS 


D 


EFPR4 


DS 


D 


EFPB6 


DS 


D 


CHKWRD1 


DC 


C'ABCD* 


SSAVENXT 


DS 


A 


SSAVEPRV 


DS 


A 


USAVEPTR 


DS 


A 



OSTEMP 



DS 



Field Description, Contents, Meaning 

A*1 Override indicator: 0,1,2,3 
A*2 SVC type byte 



Error return desired 

No save area allocated 

Return callee's R0-R1 to caller 

User SVC call 

OS VSAM SVC request 

SVC 203 

OS simulation SVC 

SVC 203 code value 

Address of SVC caller 

Name of routine being called 

SVC old PSW of caller 
Address for normal return 
Address for error return 

General— purpose registers at entry 

RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 

R8 

R9 

RIO 

R11 

R12 

R13 

R14 

R15 

Floating— point registers at entry 

FPRO 

FPR2 

FPR4 

FPR6 

Check word 1 

Address of next SSAVE area 

Address of previous SSAVE area 

Address of corresponding user 

Save area 

Temporary work area for OS simulation routines 
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SSAVE 

Hexadecimal Field 

Displacement Name Field Description, Contents, Meaning 





KEYMAX 


EQU 


94 


KEYP 


DC 


95 


KEYS 


DS 



^MSKEY Ke^ Stack 

7 Maximum number of keys in stack 

X'OO* A*3 Number of keys on stack 
(KEYMAX) X Key stack 

The following fields are filled in onli b^ DMSOVS, the SVC TRACE 
subroutine 

9C XGPRO DS F Extra copy of EGPRO 

AO XGPR1 DS F Extra copy of EGPRI 

A4 XGPR15 DS F Extra copy of EGPR15 

Extra copy of SVCOUNT 
AC CHKWRD2 DC C'EFGH* Check word 2 

Size of system save area 



XGPRO DS 
XGPR1 DS 
XGPR15 DS 
XCOUNT DS 
CHKWRD2 DC 
SSAVESZ EQU 


F 
F 
F 
F 

C'EFGH* 
(*-SSAVE+7)/8 


Format of User 


Save Area 


USAVE DSECT 
DS 


12D 


USAVESZ EQU 


(♦-USAVE+7) /8 





DS 12D Scratch area passed to user via a 

pointer in register 13 

Size of user save area 
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SUBSECT 



SUBSECT: SUBSET WORK AREA 

SUBSECT defines the fields in the SUBSET work area which is used by CMS SUBSET command 
processing and ABEND recovery. 

The SUBSECT DSECT is pointed to by the ASUBSECT field (hex 634) in NUCON. 



I 



RMSGBUF 



I — 



28 I 



CMSTIM 



I r 

50 I I //////////// I 

58 I STAESAV | 

I- 

60 I SWTCHSAV 

I- 

68 I ASUBSTAT 

I 



ASUBRET 
SPIESAV 
ASUBFST 



Hexadecimal Field 
Displacement Name 





RMSGBUF 


DS 


10F 


28 


CMSTIM 


DS 


OF 


28 




DC 


CL8'CMSTIME' 


30 




DS 


F 


34 




DS 


F 


38 




DS 


A 


3C 




DS 


F 


40 




DS 


OF 


40 


STARS 


DC 


CL8»*" 


48 




DC 


CL8'*' 


50 




DC 


CL2'*' 




Subset Add: 


E^ss 


S torajge Areas 


54 




DS 


OF 


54 


ASUBRET 


DS 


F 


58 


STAESAV 


DS 


F 


5C 


SPIESAV 


DS 


F 


60 


SWTCHSAV 


DS 


F 


64 


ASUBFST 


DS 


F 


68 


ASUBSTAT 


DS 


F 


70 


ERRNUM 


DS 


D 


78 


TIMBUF 


DS 


4D 



Field Description, Contents, Meaning 

Buffer area for formatting time message 
PLIST to obtain time from DMSINM 

Virtual machine time used 

Total CPU time used (CP+CMS) 

Address of time buffer 

Message length (filled in by CMSTIME) 

PLIST for DMSLAF (used by SUBSET) 



Return address to caller 
STAE save area 
SPIE save area 



Work area for error return code 

Work area for DMSINM to store date and time 
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S?CSECT 



SVCSECT: SVC INTERRUPT STORAGE 



SVCSECT describes the fields used by DMSITS In handling SVC Interrupts. SVCSECT Is built 
dynamically when an SVC Is Issued. The first SVCSECT Is pointed to by the ASVCSECT field 
(hex 674) In NDCON; If SVCs are nested, the chain of SVCSECT blocks Is processed using 
the CORRALOC and LASTALOC fields. 






r - 


JNUHB 


1 JFIHST 1 


8 




JF4 


1 JLAST 1 


10 


A*1 1 


1 SVCAB 


1 CORRALOC 1 


18 




LASTALOC 


1 DEPTH 1 


20 




ADMSOVS 


1 OVBPF 1 OVBTF | 


28 


OVAPF 


1 OVATF 


1 A*2 1 unused | 


30 






SVCSAVE 1 



I- 



78 I 



NRMSAV 



— I 



158 


unused 


1 


SVCODNT 1 


160 


SVCSTOP 


1 


SVLAD 1 


168 


SVLADH 


1 


SVLFS 1 


170 






• 
• 


1A8 




MODLIST 




1B0 




DUMCOM 




1B8 


A*3 1 ZEROS 
TRANSRT (cont.) 


1 


TRANSRT 1 


ICO 


1 A*4 


1 ADTRANS 1 


1C8 




TEMP02 




1D0 


///////////////////////////////////////////////////////I 


1D8 


/////////////////////////////////////////////////////// 1 


1E0 
1 


RGPRO 


1 


RGFR1 1 


1E8 


RGPR2 


1 


RGPR3 1 


1F0 


RGPR4 


1 


RGPR5 1 
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SVCSECT 



1F8 


1 


RGPR6 1 RGPR7 


1 


200 




RGPR8 1 RGPR9 




208 




RGPR10 1 RGPR11 




210 




RGPR12 1 RGPR13 




218 




RGPRia 1 RGPR15 




220 




RFPRO 




228 




RFPR2 




230 




RFPRU 




238 




RFPR6 




240 




NRMUSAV 





Hexadecimal Field 
Displacement Name 



10 



USVCTBL DS 



OF 



K®6£ S§xt four in order 



JNUMB DC 

JFIRST DC 

JF4 DC 

JIAST DC 



F»0' 
A (*-*) 
F'4» 
A (*-*) 



Field Description, Contents, Meaning 
Oser SVC Table 



No. of doublewords in SVC number table 
Address of first item (if any) in table 
Loop increment for BXLE 
Address of last item in table 



Start-U£ flac[s — Indicate Sjstem Parameter Fla^ for the Called Routine 
SFLAG DC BLI'O' A* 1 Flag byte 



ii£§ defined in SFLAG 
SFSYS EQU X"^80' 
SFTRN EQU X'40' 
SFNUC EQU X»20' 
SFREN EQU X'OI* 



11 


DC 


X'OO' 


12 


SVCAB DC 


H«0' 


14 


CURRALOC DC 


A(0) 


18 


LASTALOC DC 


A(0) 


1C 


DEPTH DC 


F'O' 




Information 


for SVCTRACE 


20 


ADMSOVS DC 


A(0) 


24 


OVBPF DC 


BL2'0' 


26 


OVBTF DC 


BL2'0' 


28 


OVAPF DC 


BL2'0' 


2A 


OVATF DC 


BL2'0' 



System flag — SVC protect key is zero 
Transient area routine — system mask is off 
Nucleus routine — system mask is off 
Illegal re-entry flag 

Reserved for IBM use 
SVC ABEND code, if any 
Current allocated save area 
Last allocated save area 
Nested SVC depth 



Address of DMSOVS 
'Before print' flags 
•Before type' flags 
'After print" flags 
'After type' flags 
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SVCSECT 



Ih^ tQllQUiUS eauate sjrmbols are associated 

Ifiili the first bjte of the f la^ fields defined above 



0VF10N 


EQU 


X«80' 


0VF1GB 


EQU 


x'ao* 


0VF1GA 


EQU 


X»20' 


0VF1GS 


EQU 


X'lO* 


OVFlPA 


EQU 


X'08' 


0VF1F 


EQU 


X»04' 


0VF1FS 


EQU 


X'01' 



Current option is set on 
GPRs before call wanted 
GPEs after call wanted 
GPRs returned from SVC callee 
PLIST wanted 

Floating— point registers wanted 
Floating-point registers returned 
callee 



from SVC 



The following equate sj^nbols are associated with 
ih§. second b^te in the fla^ fields 



2C 



2D 
30 
78 

158 
15C 
160 
16a 
168 
16C 
170 



1A8 
1A8 
1B0 
1B8 
1B9 



0VF2ST 


EQU 


X'80' 


GVF2CM 


EQU 


X«40' 


0VF2NR 


EQU 


X'20' 


0VF2GS 


EQU 


XMO' 


0VF2HA 


EQU 


X'08' 


OVSTAT 


DC 


B'O' A*2 


Bits defined 


in OVSTAT 


OVSON 


EQU 


X'80'~ 


OVSPREV 


EQU 


X'40' 


OVSAFT 


EQU 


X«20' 


OVSHO 


EQU 


XMO' 


OVSSO 


EQU 


X«08' 




DC 


XLB'O' 


SVCSAVE 


DC 


18F'0' 


NRMSAV 


DC 


28D«0» 




DC 


F'0» 


SVCOUNT 


DC 


F'0« 


SVCSTOP 


DC 


F'O' 


SVLAD 


DS 


F 


SVLADW 


DS 


F 


SVLFS 


DS 


F 




DC 


lUF'O' 


Ell 1ST for Calling DMSLDR 




DS 


OF 


MCDLIST 


DC 


CLS'LOAEMOD • 


DUMCOM 


DC 


CL8' • 


SSMOH 


DC 


X'FF' A*3 


ZER03 


DC 


AL3 (0) 



STOP wanted 

CMS SVC TRACE wanted 

Normal return CMS SVCs wanted 

OS SVCs wanted 

WAIT CMS SVCs wanted 

Current status of SVCTRACE 



Overrides are on 
SVCTRACE SAME' is legal 
After bit, set by DMSITS 
HALT OVERRIDES flag 
SUSPEND OVERRIDES flag 

Unused 

DMSITS work area 

Normal standard information 

Reserved for IBM use 
Current SVC count 
For DMSITS debugging 
Save reg 14 for DMSLAD 
Save reg 14 for DMSLDH 
Save reg 14 for DMSLFS 
Reserved for IBM use 



Routine name 

Module filename filled in here 
Fence, allows all interrupts 
3-byte zero 
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SVCSECT 



Bexadecimal 


Field 












Displacement 


Name 










Field Description, Contents, Meani; 


1BC 


TEANSRT 


DC 


CL8' 




. 


Holds filename of transient routini 


ica 


TRANMSK 


DC 


AL1 (X 


'FF' 


')A*4 




1C5 


ADTBANS 


DC 


VL3(TRAHSAR) 




1C8 


TEMP02 


DC 


D'O' 






For CVD and other scratch use 


1D0 




DC 


4F'0« 






Reserved for IBM use 


1E0 




DS 


OD 








1E0 


BGPES 


DS 


OF 






Returned general-purpose registers 


1E0 


RGPRO 


DS 


F 






RO 


1E4 


RGPR1 


DS 


F 






R1 


1E8 


RGPR2 


DS 


F 






R2 


1EC 


RGPR3 


DS 


F 






R3 


1F0 


RGPR4 


DS 


F 






R4 


IFU 


RGPF5 


DS 


F 






R5 


ir8 


RGPR6 


DS 


F 






R6 


IPC 


RGPR7 


DS 


F 






R7 


200 


RGPR8 


DS 


F 






R8 


204 


RGPR9 


DS 


F 






R9 


208 


RGPR10 


DS 


F 






RIO 


20C 


RGPR11 


DS 


F 






R11 


210 


RGPR12 


DS 


F 






R12 


214 


RGPR13 


DS 


F 






R13 


218 


RGPR14 


DS 


F 






R14 


21C 


RGPR15 


DS 


F 






R15 


220 


RFPRS 


DS 


OD 






Returned floating-point registers 


220 


RFPRO 


DS 


D 






FPRO 


228 


RFPR2 


DS 


D 






FPR2 


230 


RFPR4 


DS 


D 






FPR4 


238 


RFPR6 


DS 


D 






FPR6 


240 


MRMUSAV 


DS 


12D 






NRMSAV user save area 



Section 2. CHS Data Areas and Control Blocks 229 



SVEABA 

5YJ1M: LTA AND PP SAVE AREA DSECT 

SVEARA describes the fields in a EOS/VS Logical Transient Area (LTA) or Problem Program 
(PP) save area. SVEARA is invoked via the DOSAVE macro. SVEARA is us-ed by DOS/VS 
routines to save the value of the PSH and registers for purposes such as linkage to and 
froB transient routines. 




8 
10 
18 
20 
28 
30 
38 
40 
48 



1 /////////////////////////////////////////////////////// 




SVEPSH 1 SVEPSH2 






SVER09 1 SVEROA 






SVEROB 1 SVEROC 






SVEROD 1 SVEROE 






SVEROF 1 SVEROO 






SVER01 1 SVER02 






SVER03 1 SVER04 






SVER05 1 SVER06 
SVER07 1 SVER08 






Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 








DS 


2F 


8 


SVEPSH 


DS 


F 


C 


SVEPSW2 


DS 


F 


10 


SVER09 


DS 


F 


14 


SVEROA 


DS 


F 


18 


SVEROB 


DS 


F 


1C 


SVEROC 


DS 


F 


20 


SVEROD 


DS 


F 


24 


SVEROE 


DS 


F 


28 


SVEROF 


DS 


F 


2C 


SVEROO 


DS 


F 


30 


SVER01 


DS 


F 


34 


SVER02 


DS 


F 


38 


SVER03 


DS 


F 


3C 


SVER04 


DS 


F 


40 


SVER05 


DS 


F 


44 


SVEH06 


DS 


F 


48 


SVER07 


DS 


F 


4C 


SVER08 


DS 


F 



LTA and PP save area DSECT 
Reserved for IBM use 
First half PSH 
Second half PSH 
Save area for register 9 
Save area for register 10 
Save area for register 11 
Save area for register 12 
Save area for register 13 
Save area for register 14 
Save area for register 15 
Save area for register 
Save area for register 1 
Save area for register 2 
Save area for register 3 
Save area for register 4 
Save area for register 5 
Save area for register 6 
Save area for register 7 
Save area for register 8 
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SYSCOM 



SYSCOM: SYSTEM COMMUNICATION REGION 

SYSCOM is the CMS simulation of the DOS/VS System Communication Region (SYSCOM) 
The ASYSCOM field (hex 4E4) in NUCON points to the SYSCOM block. 






1 IJBEBBLC 


IJBAREX 1 


8 


1 IJBERR19 1 IJBERR24 


IJBPUBES 1 


10 


IJBFETCH 


IJBINTBT 1 


18 


IJBEXTRT 


IJBLTA 1 


20 


IJBPPBEG 


IJBCHANQ 1 


28 


IJBQSIZE 1 IJEQLNG 


IJBNPART I////////I 


30 


IJBRSAVE 


IJBCONSP 1 


38 


IJBSAB 


IJBCHNTB 1 


40 


A*1 1 A*2 1 A*3 1 A*4 


IJBSTID 1 IJBEXIT | 


48 


IJBPEADR 


IJBTKHLD 1 


50 


IJBTIMER 


IJBABTAB I 


58 


IJBLIK 1 IJBTIK 


IJBPWR 1 


60 


IJBTCAVT 


IJBRFTAB 1 


68 


IJBEUECB 


IJBCLTEP 1 


70 


IJBRASLN 


IJBTRTAB 1 


78 


IJBPEOWN 


IJBJATAB 1 


80 


IJBPMGE 


IJBCCWT 1 


88 


IJBSAVSD 


IJBLNSTB 1 


90 


IJBAMCOM 


IJBAPTA 1 


98 


IJBSBLKO 


IJBSBLKX 1 


AO 


A*5 1 A*6 1 A*7 1 A*8 


A* 9 1 A* 10 I/////////////I 


A8 


//////////////////////////// 


/////////////////////////// 1 


BO 


//////////////////////////// 


IJBMVCAD 1 


B|/ 


v/////////////////////////// 


1 /////////////////////////// 1 


CO 


IJBMFCER 1 

_ I 


C8 


1 A*11 


IJBPUBLN 1 IJBAPNO | 

J 



Section 2. CHS Data Areas and Control Blocks 231 



SYSCOH 



DO I 



IJBSEGT 



D8 



EO 



I 



E8| 

I- 
FOI 



F8 



I 
\ 
I 
1001 

I- 

101 

I 

1101 



IJBPFTX 

IJBDPDTB 

IJBVIBAD 

IJBFTTAB 

IJBSVIS 

ABPSB 



IJBPFT 
IJBBOX 

/////////////////////////// 

IJBEOB 
IJBSVA 
ABPSL 
IJBDLAB 



SYS$CODE 



r- 

I 

I 



Hexadecimal 


Field 








Displacement 


Name 











IJBEBBLC 


DC 


A(0) 




4 


IJBABEX 


DC 


A(0) 




8 


IJBEBR19 


DC 


H'O* 




A 


IJBERR24 


DC 


H'0« 




C 


IJBPUBBS 


DC 


F»0' 




10 


IJBFETCH 


DC 


A(0) 




14 


IJBINTRT 


DC 


A(0) 




18 


IJBEXTRT 


DC 


A(0) 




1C 


IJBLTA 


DC 


A(0) 




20 


IJBPPBEG 


DC 


A(0) 






IJBFLPTR 


EQU 


♦ 




24 


lOBCHAMQ 


DC 


F»0' 




28 


IJBQSIZE 


DC 


H'0« 




2A 


IJBQLNG 


DC 


H'O* 




2C 


IJBNPART 


DC 


H'1' 




2E 




DC 


H'O' 




30 


IJBRSAVE 


DC 


A(0) 




34 


IJBCONSP 


DC 


A(0) 




38 


IJBSAB 


DC 


A(0) 




3C 


IJBCHHTB 


DC 


A(0) 




40 


IJBFLG01 


DC 


X'OO' 


A*1 


41 


IJBFLG02 


DC 


X»00' 


A*2 


42 


IJBFLG03 


DC 


X'OO* 


A*3 


43 


IJBFLG04 


DC 


X'OO' 


A*4 


44 


IJBSTID 


DC 


H'O' 






IJBSELCT 


EQU 


*_1 




46 


IJBEXIT 


DC 


H'O' 




48 


IJBPDADR 


DC 


A(0) 






IJBTHPTR 


EQU 


*_1 




4C 


IJBTKHLD 


DC 


F'O' 





Field Description, Contents, Meaning 

Address of error block 

Exit address for attention 

Cancel exit for attention 

Cancel exit for attention 

SYSRES PUB address 

Address of fetch routine 

Address of I/O interrupt routine 

Address of external interrupt routine 

Pointer to logical transient area 

Pointer to problem program area 

Free list pointer 

Pointer to channel queue 

Number of channel queue entries 

Length of one error queue entry 

Number of partitions 

Reserved for IBM use 

Pointer to channel buckets 

Address of CRT table 

Address of SAB table 

Address of channel control table 

Flags and switches 125 RMS 

Switch byte 

Flags and switches 

Flags and switches 

System task selection control field 

System task selection byte 

Pointer to task selection 

Pointer to PDAREA 

Track hold FLPTR 

Address of track hold table 
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SYSCOM 



Hexadecimal 


Field 








Displacement 


Name 








50 


IJBTIMER 


DC 


A(0) 




54 


IJBABTAB 


DC 


A(0) 




58 


IJBLIK 


DC 


H'O' 




5fl 


IJBTIK 


DC 


X'OOIO* 




5C 


IJBPWR 


DC 


A(0) 




60 


IJBTCAVT 


DC 


A(0) 




64 


IJBRFTAB 


DC 


A(0) 




68 


IJBEUECB 


DC 


A(0) 




6C 


IJBOLTEP 


DC 


A(0) 




70 


IJBBASLN 


DC 


A(0) 




74 


IJBTRTAB 


DC 


A(0) 




78 


IJBPBOHN 


DC 


A(0) 




7C 


IJBJATAB 


DC 


A{0) 




80 


IJBPMGR 


DC 


A(0) 




84 


IJBCCWT 


DC 


A(0) 




88 


IJBSAVSD 


DC 


A(0) 




8C 


IJBLNSTB 


DC 


A(0) 




90 


IJBAMCOM 


DC 


A(0) 




94 


IJBAPTA 


DC 


A(0) 




98 


IJBSBLKO 


DC 


A(0) 




9C 


IJBSBLKX 


DC 


F'O' 




AO 


IJBSYSPT 


DC 


X'OO" 


A*5 


A1 


IJBRASPT 


DC 


AL1 (0) 


A*6 


A2 


IJBPMRPT 


DC 


AL1 (0) 


A*7 


A3 


IJBSOPPT 


DC 


AL1 (0) 


A*8 


A4 


IJBCRTPT 


DC 


AL1 (0) 


A + 9 


A5 


IJBERPPT 


DC 


ALI (0) 


A*10 


A6 




DC 


lOX'OO' 




BO 




DC 


F»0' 




B4 


IJBMVCAD 


DC 


A(0) 




B8 




DC 


F'0« 




BC 




DC 


H'O" 




BE 




DC 


H'0» 




CO 


IJBMFCER 


DS 


IIX'OO" 




CB 


IJBNERQ 


DC 


ALI (0) 


A*11 


CC 


IJBPUBLN 


DC 


S(0) 




CE 


IJBAPNO 


DC 


H'1' 




DO 


IJBSEGT 


DC 


A(0) 




D4 


IJBPFT 


DC 


A(0) 




D8 


IJBPFTX 


DC 


A(0) 




DC 


IJBBOX 


DC 


A(0) 




EO 


IJBDPDTB 


DC 


A(0) 




E4 




DC 


F'O' 




E8 


IJBVIRAD 


DC 


A(0) 




EC 


IJBEOR 


DC 


F'O' 




FO 


IJBFTTAB 


DC 


A(0) 




F4 


IJBSVA 


DC 


A(0) 




F8 


IJBSVIS 


DC 


A(0) 




FC 


ARPSL 


DC 


A(0) 




100 


ARPSR 


DC 


A(0) 




104 


IJBDLAB 


DC 


A (SYS$CODE) 


108 


SYS$CODE 


DC 


CL13'CMS/VSAM' 



Field Description, Contents, Meaning 

Address of timer request table 

Address of AB option table 

Key of task owning the LTA 

Task interrupt key 

Pointer to power table 

Space for VTAM address 

Pointer to RF table 

Pointer to EU and ECB table 

Address of OLTEP bucket 

Pointer to RAS linkage area 

Address of ASCII table 

Address of PUB ownership table 

Address of job accounting comm. area 

Base address of PMGR routines 

Address of CCW trans work 

Pointer to SDAID comm. area 

Address of line mode table 

Address of VSAH comm. reg. 

Address of PTA 

Pointer to first system task block 

Pointer to current system task 

For alignment 

Pointer to RAS task block 

Pointer for PMGR task block 

Pointer to SPVR task block 

Pointer to CRT task block 

Pointer to ERP task block 

Reserved for IBM use 

Reserved for IBM use 

Pointer to MVCFLD 

Reserved for IBM use 

Reserved for IBM use 

Reserved for IBM use 

Information on MFCM and MFCU ERP 

Number of error queue entries 

Length of PUB table 

Number of active partitions 

Address of segment table 

Address of page frame table 

Pointer to page frame table extension 

Pointer to boundary box 

Pointer to DPD table 

Reserved for IBM use 

Address of VIRTAD routine 

End of real storage 

Address of the fetch table 

Address of the SVA start 

Address of SVA GETVIS area 

Reserved for IBM use 

Reserved for IBM use 

Pointer to system code name 

System code name 
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SYSNAMES 



SYSNAMES: SAVED SYSTEMS NAMES 



SYSNAMES defines the names of any saved systems which may be loaded by CMS routines, 
ASYSNAMES in NUCOH (hex location SEC) points to the SYSNAMES table. 




8 

10 
18 



CMSSEG 



CMSVSAM 

CMSAMS 

CMSDOS 



Hexadecimal Field 
Displacement Name 






CMSSEG 


DC 


CLS'CMSSEG' 


8 


CMSVSAM 


DC 


CL8' CMSVSAM* 


10 


CMSAMS 


DC 


CL8«CMSAMS' 


18 


CMSDOS 


DC 


CL8' CMS EOS' 


20 


SYSNEND 


DS 


OD 




SYSNCNT 


EQU 


(SYSNEND-SYS 



Field Description, Contents, Meaning 

CMS shared system name 

VSAH shared system name 

Access Method Services shared system name 

DOS shared system name 
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TSOBLKS 



TSOBLKS: TSg CONTROL BLOCKS 

TSOBLKS contains OS control information used by CMS, that is, the command program 
parameters list (CPPL) , user profile table (OPT) , protected step control block (PSCB) , 
and the environment control table (ECT) . 

The ATSOCPPL field (hex 5D8) in NUCON points to TSOBLKS. 






CPPLOBUF 1 CPPLDPT | 


8 


CPPLPSCB 1 CPPLECT | 


10 


//////////I UPTUSER 1 


18 


UPTUSEE (cont.) 1 A*1 1 A*2 | A* 3 I /////////I 


20 


PSCBUSER 1 A*4 1 


28 


PSCBGPNM 1 


30 


A* 5 I///////I A* 6 I///////I 1 




1 1 



48 
50 
58 
60 
68 
70 
78 
80 
88 



PSCBRLGB 
PSCBUPTL I /////////// I 

PSCBU 
A*7 I ECTRTCD | 

A*8 I ECTSMSG | 

ECTPCMD (cont.) I 
ECTSCMD (cont.) | A*9 | 



PSCBTCOL 

PSCBOPT 

PSCBRSZ 



ECTIOWA 
ECTPCMD 
ECTSCMD 
ECTDDNUM 



ECTUSER 



I /////////////////////////// 



Hexadecimal Field 
Displacement Name 






CPPL 


DS 


OF 





CPPLOBUF 


DC 


AL4 (0) 


u 


CPPLUPT 


DC 


AL4 (UPT) 


8 


CPPLPSCB 


DC 


AL4 (PSCB) 


C 


CPPLECT 


DC 


ALU (ECT) 




User Profile 


Table (UPT) 


10 


UPT 


DS 


OF 


10 




DS 


CL2 


12 


UPTUSER 


DS 


CLIO 



Field Description, Contents, Meaning 

Temporary PLIST to CP programs 
Address of command line 
Address of dummy UPT 
Address of dummy PSCB 
Address of dummy ECT 



Reserved for IBM use 
Reserved for installation use 
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TSOBLKS 



Hexadecimal 


Field 






Displacement 


Name 






1C 


UPTSHS 


DC 


X'OO" 




Bits def 


ined 


in UPTSHS 






EQU 


X«80»~ 




OPTNPRM 


EQU 


X"40' 




UPTMID 


EQU 


X'20' 




UPTNCOM 


EQU 


X»10' 




UPTPAUS 


EQU 


X'08' 




UPTALD 


EQU 


X'OU' 


ID 


UPTCDEL 


DC 


X«00' 


IE 


UPTDEL 


DC 


X'OO' 


IF 




DS 


CL1 



20 
20 
27 
28 
30 



31 
32 
33 

3a 

4C 
50 
54 
58 
5 A 
5C 
60 



68 
68 
69 
6C 
70 

71 

74 
7C 
84 



Field Description, Contents, Meaning 
A*1 User's environment switch 



Reserved for IBM use 

No prompting is to be done 

Print message identifiers 

No user communication allowed via SEND 

Pause for '?' when in non-interface mode 

ATTN has been specified as line delete 

A*2 Character delete character 
A*3 Line delete character 
Reserved for IBM use 



Protected St eg Control Block (PSCB) 



PSCB DS OF 

PSCBUSER DC CL7» • 

PSCBUSRL DC X»00' 

PSCBGPNM DS CL8 

PSCBATR1 DS X 

PSCBCTRL EQU X'80» 

PSCBACCT EQU X'40' 

PSCBJCL EQU X'20« 

* BITS 3 15 

DS X 

PSCBATR2 DS X 

DS X 

DC 6F«0» 



User ID padded with blanks 
A*4 Length of user ID 

Esoteric group name initialized by logon 
A*5 15 bit string of user attributes 

Operator command user 

Account command user 

Submit command user 

Reserved for IBM use 

Reserved for IBM use 
A*6 15 bit string reserved for installation use 



6 fullwords used 
initialized to 



for TSO accouting; 



PSCBTCOL 


DS 


IF 


PSCBRLGB 


DS 


AL4(0) 


PSCBUPT 


DC 


AL4 (UPT) 


PSCBUPTL 


DC 


AL2{16) 




DS 


BL. 16 


PSCBRSZ 


DS 


A 


PSCBU 


DS 


CL8 



Pointer to the user profile table 

Length of the UPT 

Reserved for IBM use 

Region size reguested in 2K units 

Reserved for installation use 



Mvi£2M§Il£ Control Table (ECT) 



85 
88 
8C 



ECT 


DS 


OF 


ECTRCDF 


DC 


AL1 (0) 


ECTRTCD 


DC 


AL3 (0) 


ECTIOHA 


DC 


AL4 (0) 


ECTMSGF 


DC 


X'OO' 


ECTSMSG 


DS 


AL3 


ECTPCMD 


DC 


CL8' ' 


ECTSCMD 


DS 


CL8 


ECTSWS 


DC 


X'OO' 


Bits defined 


in ECTSHS 


ECTNOPD 


EQU 


X'80»~ 


ECTATRM 


EQU 


X'20' 


* 


EQU 


X'40' 


ECTLOGF 


EQU 


X'10' 


ECTNMAL 


EQU 


X'08' 


ECTNNOT 


EQU 


X'04' 


ECTDDNUM 


DC 


AL3 (0) 


ECTUSER 


DS 


A 




DS 


A 



A*7 High-order bit indicates CP abended 

Return code from last control routine 
Address of I/O service routine work area 

A*8 High-order bit means delete 2nd level messages 
(Must be initialized by user.) 
Address of second level message chain 
Primary command name 
Subcommand name 

A*9 ECT switch 



bit= on, no operands exist in command buffer 

CP terminated by TMP DETACH w/ STAE 

Reserved for IBM use 

Logon/off requested trap to log off 

No user messages received at logon 

No broadcast notices to be received 

Counter for temporary DDNAMS 
Reserved for iinstallation 
Reserved for IBM use 
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USERSECT 

USER SECT: USER WORK AREA 

USERSECT defines a general scratch storage area provided for user-defined purposes. It 
may be redefined to suit installation requirements. 

The USERSECT is pointed to by the AUSER field (hex 620) in NUCON. 



USCRTCH 



40 I 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 



USCRTCH DC 



18F«0' 



User scratch area 
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SECTION 3. RSCS DATA AREAS AMD CONTROL BLOCKS 



This section describes in detail each of the data areas used by RSCS. Unlike the CP and 
CMS format blocks in this publication, the RSCS format blocks are on fullword 
boundaries. 

This section of the publication contains only DSECTs. Appendixes B and C contain 
other control areas used by RSCS. 
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ASYNE 



iSYNE: ASYNCHRONOUS EXIT ELEMENT 

ASYNE defines symbolic addresses for elements on an asynchronous exit queue. An 
asynchronous exit queue element contains information by which a task requests that it 
handle asynchronous interrupts. 

lOEXITQ, EXTQ, and ALERTQ in SVECTORS are the heads of three asynchronous exit 
queues. Each of these queues is comprised of supervisor elements defined by the ASYNE 
ESECT. lOEXITQ points to requests for I/O exits, EXTQ points to requests for external 
exit requests, and ALERTQ points to requests for ALERT exits. 



I 



4 I 






8 I 



ASYNNEXT 
ASYNTASK 
ASYNEXIT 



~l 



1 

I ASYNID I 
.J 



C I 



ASYNCODE 



I ASYNSPAR 



Hexadecimal Field 
Displacement Name 






ASYNNEXT 


DS 


IF 


4 


ASYNTASK 


DS 


IF 


8 


ASYNEXIT 


DS 


IF 


C 


ASYNCODE 


DS 


AL2 



ASYNSPAR DS IX 
ASYNID DS IX 



Field Description, Contents, Meaninq 

Address of the next asynchronous 

interrupt exit request element 
Address of task element describing 

the task that requested the 

asynchronous interrupt 
Address of the requested asynchronous exit 

routine 
Address of the device for which 

asyncronous I/O interrupts 

are requested or interrupt 

bit code 
Reserved for IBM use 
1-byte ID of the task owning the 

asynchronous exit routine 
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BUFDSECT 



BUFDSECT: SML TELECOMMUNICATIONS BUFFER 

BUFDSECT is used to transmit buffer control information and buffer data to and from 
programmable remote stations. 

The buffer sent across the TP line starts at BUFSTART; the first 7 bytes of BUFDSECT 
are used by the SML line driver but are not transmitted. 

$BUFPOOL in SML points to a queue of available TP buffers; $INBUF in SML points to a 
queue of TP buffers that have been received from a remote station and are waiting to be 
deblocked. SOUTBUF in SML points to a queue of TP buffers that are ready for 
transmission to remote stations. 



I BUFCHAIN 

4 I BUFCOUNT | BUFSTAT | BUFSTART 

8 I BUFSTART | BUFBCB | BUFFCS 

C I BUFDATA 



Hexadecimal Field 
Displacement Name 






BUFBEGIN DS 


OF 





BUFCHAIN DC 


A(0) 


4 


BUFCOUNT DS 


1H 


6 


BUFSTAT DS 


1C 




Bits defined 


in BUFSTAT 




BUFFAKE EQU 


X'01' 




BUFRESP EQU 


X«02» 




BUFNAK EQU 


X'OtI' 




BUFTEXT EQU 


X'08« 




BUFUCHEK EQU 


X'10' 


7 


BUFSTART DS 


CL2 


9 


BUFBCB DS 


1C 


A 


BUFFCS DS 


CL2 


C 


BUFDATA DS 


OF 



Field Description, Contents, Meaning 

Beginning of the buffer 
Buffer chain field 
Count of bytes to transmit 
Buffer status byte 



Dummy buffer indicator 

Response only in buffer 

NAK response being sent 

Buffer contains text information 

Unit check expected 

Bisynch transmission control bytes 
Block control byte 
Function control sequence 
Data portion of TP buffer 
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COMDSECT 



COMpS^CT 



COMDSECT defines address constants used as pointers to subroutines common to all ESCS 
modules. These subroutines are contained in module DMTCOM. COMDSECT is pointed to by 
TCOM in SVECTOHS. 





a 

8 

C 

10 

14 



GLINKREQ 

GPAGEREQ 

FPAGEREQ 

PMSGREQ 

GMSGREQ 

GTODEBCD 



Hexadecimal Field 
Displacement Name 




4 
8 
C 
10 
14 



GLINKREQ DS 1A 

GPAGEREQ DS 1A 

FPAGEREQ DS 1A 

PMSGREQ DS 1A 

GMSGREQ DS 1A 

GTODEBCD DS 1A 



Field Description, Contents, Meaning 

Get link table entry routine 

Get page of main storage 

Free page of main storage 

Put message element into message stack 

Remove message element from message stack 

Convert S/370 TOD to EBCDIC 
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DEVTABLE 



DEVTABLE: NPT DEVICE TABLE 



DEVTABLE defines virtual device information for an I/O operation, 
to the lOTABLE DSECT. 



This DSECT corresponds 





4 

8 

C 
10 

14 

18 







DEVLOCK 






DEVADDR 


1 DEVSNREQ | 
DEVSTART 


DEVTYPE 












DEVCSW 






DEVSENSE 1 


DEVFLAGS 






DEVNAME 





Hexadecimal Field 
Displacement Name 






DEVLOCK 


DC 


4 


DEVADDR 


DC 


6 


DEVSNREQ 


DC 


7 


DEVTYPE 


DC 


8 


DEVSTART 


DC 


C 


DEVSIOCC 


DC 


C 


DEVCSW 


DC 


14 


DEVSENSE 


DC 


15 


DEVFLAGS 


DC 


18 


DEVNAHE 


DC 



F«0» 
AL2 (0) 
AL1 (0) 
X'OO' 
F»0' 

OX'OO* 
2F'0' 
X«00' 
3X'00« 
CL8' ' 



Field Description, Contents, Meaning 

I/O request synch lock 
CUU address of I/O device 
Requested sense bytes 
VM/370 device type code 
Address start channel program 

for I/O handling 
Right-justified SIO condition code 
Ending CSW from last I/O operation 
Sense information on unit check 
Device status flags 
EBCDIC device address and name 



Section 3. RSCS Data Areas and Control Blocks 243 



FREEE 

FREEE: A FREE ELEMENT ON THE SUPERVISOR ELEMENT fiUEUE 

The FREEE DSECT defines an element in the chain of elements that comprise the free 
element queue. 

FREEQ in SVECTORS points to the chain of free elements, each of which is defined by 
the FREEE DSECT. 



FREENEXT 
FREESPAR 



I FREEID 



Hexadecimal Field 
Displacement Name 



FREENEXT DS IF 
FREESPAR DS CL11 
FREEID DS IX 



Field Description, Contents, Meaning 

Address of next element in free queue 

Spare field 

Standard taskid offset 

— ID=X'00«=> free element 
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GIVEE 
GIVEE: A GIVE ELEMENT 

The GIVEE DSECT defines symbolic addresses for items used in processing a GIVE request. 

GIVEQ in SVECTORS points to the queue of GIVE elements used in task-to-task 
communications. 

The GIVEADDR field of this DSECT is the address of a GIVE request table, which, in 

turn, contains addresses of buffers for elements describing requests and responses to 

requests. These tables are described below; the elements that fill the buffers are 
described in Appendix C: "BSCS Request Elements." 






r — 




GIVENEXT 


1 


u 


1 





GIVEADDR 




8 


GIVENAME 




C 




GIVESPAB 


1 GIVENID 1 


GIVERID 1 



Hexadecimal Field 
Displacement Name 



GIVENEXT DS 
GIVEADDR DS 



IF 
IF 



GIVENAME DS CL4 

GIVESPAR DS AL2 

GIVENID DS IX 

GIVERID DS IX 



Field Description, Contents, Meaning 

Address of next GIVE element 

Address of GIVE request table in sending 

task's storage 
Task name of receiving task 
Unused 

1-byte ID of receiving task after TAKE 
1-byte ID of sending task 
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GIVE/TAKE 



GIVE REQUEST TABLE 



The format of a GIVE Request Table is 



synch lock 
task name or A (GIVE Element) 
A (GIVE Request Buffer) 
A (GIVE Response Buffer) 



When a task requests the services of another task via a GIVE request, the second field of 
the table above contains the task name of the task to which the task is to be sent. When 
DHTGIV builds a GIVE element for the request, it overlays this task name with the address 
of the GIVE element. 

The task performing the requested service, builds a table called the TAKE request 
table, which corresponds to the GIVE request table. 



TAKE REQUEST TABLE 



The format of a TAKE request table is; 



I 



I- 



4 I 

I 

8 I 



Task name of GIVE requestor 



A (TAKE Request Buffer) 
A (TAKE Response Buffer) 



246 IBM VM/370: Data Areas and Control Block Logic 



10 E 

lOE: AH I/O ELEJEST 

The lOE DSECT defines symbolic addresses of elements and other information associated 
with an I/O operation requested by a task. 

MPXIOQ and SELIOQ in SVECTOES point to queues of I/O elements for the multiplexer and 
selector channels, respectively. 

The field ICTABLEA points to the address of an I/O table defined by DSECT lOTABLE, 
which is described in this section. 



lONEXT 



lOSUBQ 



L 



lOTABLEA 
lOADDR I lOSBCHAN | 



lOID 



I 



Sexadecimal Field 
Displacement Name 






ICNEXT 


DS IF 


4 


lOSUBQ 


DS 1F 


8 


lOTABLEA 


DS IF 




lOSTAT 


EQU * 




Bits defined in lOSTAT 



SENSING EQU X • 80 ' 

CHANDONE EQU X'UO' 

lOADDR DS AL2 

lOSBCHAN DS IX 

10 ID DS IX 



Field Description, Contents, Meaning 

Address of next active I/O element 
Address of next inactive I/O element 

for a given subchannel 
Address of I/O request table in task storage 
Status flags for current I/O operation 

(First byte of lOTABLEA) 



Flag set to 1 while automatic 

sense is active 
Flag set to 1 when subchannel terminates 

Address (cuu) of the device requesting 

current I/O operation 
Subchannel address; 1-byte; 

assigned by MSDP 
ID of task associated with this 

I/O operation; 1-byte; assigned by MSDP 
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lOTABLE 



IQI4BLE: AN I/O TABLE 

The lOTABLE DSECT defines symbolic addresses for items used in processing an I/O 
interrupt request. The first five fields are filled in by the task to convey information 
about the I/O request to the supervisor. The last three fields are filled in by the 
supervisor to convey status information about the I/O operation to the task. 





1' ■ ■ '" " " " '■ '"" " '" 


"~ '"■■■ -— '■-™ ' ■— 1- .. — ——— — «- -— I-—II.I- 


1 







lOSYNCH 




4 


1 DEVCUU 


1 SENSBEQ 1 DEVCODE 




8 




PROGADDR 




C 


1 SIOCOND 1 










ENDCSW 




4 




ENDSENSE 






1 _, ^ ,^ ^ ^ ^_^ .^,_ 




^j 



Hexadecimal Field 
Displacement Name 



C 



lOSYNCH DS IF 

DEVCUU DS AL2 

SENSREQ DS AL1 

DEVCODE DS AL1 

PROGADDR DS IF 

SIOCOND EQU * 

ENDCSW DS 2F 

ENDSENSE DS ALI 

TYPPUN EQU X»80' 

TYPPRT EQU X'40' 



Field Description, Contents, Meaning 

Synchronization lock for I/O operation 
Address (cuu) of device associated 

with this I/O operation 
Number of sense bytes requested on unit check 
1-byte ViM/370 device type code 

(not used by I/O manager) 
Address of channel program for the 

I/O operation 
1-byte SIO condition code 

return information 
Ending CSW with composite status 

return information 
Requested return sense information 

on unit check CSW status 
VM/370 type code for the punch 
VM/370 type code for the printer 
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LINKTABL 

ilMIAEL DSECT 

The LINKTABL DSECT describes the status of a single link in the RSCS network; 
collectively, all the links defined for the system are referred to as the link table. 






1 — 


LINKID 1 

1 


4 




1 
1 


8 


1 LDEFTNME | 


C 




LACTTNME | 


10 




LDEFDRVR | 


14 






18 




LACTDRVR | 


1C 






20 




LDEFLINE | LACTLINE | 


24 




LDRVRVAR | 


28 




LACTCLS1 1 LACTCLS2 | LACTCLS3 | LACTCLS4 | 


30 


— 


LTIMEZOK 1 LFLAG | LRESERVD | 


34 


LPEKDING 1 LTAKEM | 


38 




LPOINTER 1 


3C 




LMSGQ 1 


40 




LTRNSCNT | LERRCMT | 


44 




LTOCNT 1 LSPAHE | 


48 




LNKCLOCK 1 


4C 







An 8-byte header precedes the first entry in the link table (that is, the first link 
defined by the LIMKTABL DSECT). The TLIHKS field in SVECTORS points to this header, 
which has the following format: 



where: 
total links 



I Total links 
I 



I max links I current 
I I links 



is the total number of links defined for an RSCS installation via the 
GENLINK macro during system generation. (For information on the GENLINK 
macro, see the VM^370: Sjfstem JPiogrammer^s Guide.) 



max links is the maximum number of concurrently active links allowable, 
current links is the number of links active in RSCS at a given time. 



Section 3. RSCS Data Areas and Control Blocks 249 



LINKTAEL 



Hexadecimal Field 
Displacement Name 



8 

C 
10 
18 
20 
22 
24 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 
30 
31 



32 
34 
36 
38 

3C 
40 
42 
44 
46 
48 



LINKID 


DS 


CL8 


LDEFTNME 


DS 


CL4 


LACTTNME 


DS 


CL4 


LDEFDRVR 


DS 


CL8 


LACTDRVR 


DS 


CL8 


LDEFLINE 


DS 


2X 


LACTLINE 


DS 


2X 


LDRVRVAR 


DS 


IF 


LDEFCLS1 


DS 


CL1 


LDEFCLS2 


DS 


CL1 


LDEFCLS3 


DS 


CL1 


LDEFCLS4 


DS 


CL1 


LACTCLS1 


DS 


CL1 


LACTCLS2 


DS 


CL1 


LACTCLS3 


DS 


CL1 


LACTCLS4 


DS 


CL1 


LTIMEZON 


DS 


IX 


LFLAG 


DS 


IX 


Bits defj 


Lned 


in LFLAG 


LACTIVE 


'equ 


X»80' 


LALERT 


EQU 


X'40« 


LHOLD 


EQU 


X»20' 


LDRAIN 


EQU 


X'10» 


LTRALL 


EQU 


X«08' 


LTRERR 


EQU 


X'04' 


LHALT 


EQU 


X'OI* 



LINKLEN EQU *-LINKTABL 

LRESERVD DS 1H 

LPENDING DS 1H 

LTAKEM DS 1H 

LPOINTER DS IF 



LMSGQ DS 

LTRNSCHT DS 

LERRCNT DS 

LTOCMT DS 

LSPARE DS 

LNKCLOCK DS 



IF 
IB 
1H 
1H 
1H 
8X 



Field Description, Contents, Meaning 

EBCDIC linkid 

Default task name 

Active task name 

Default driver id 

Active driver id 

Default virtual line address 

Active virtual line address 

Line driver variable information 

Default spool file CLS 1 

Default spool file CLS 2 

Default spool file CLS 3 

Default spool file CLS 4 

Active spool file CLS 1 

Active spool file CLS 2 

Active spool file CLS 3 

Active spool file CLS 4 

2 comp time zone displacement from GMT 

Link flag byte 



Link active 

AXS ALERT exit set 

Link hold set 

Link drain in progress 

Link transaction tracing (all) 

Link transaction tracing (error) 

Link to be forced inactive 

Length of link table entry 

Count of tag elements reserved 

Count of unaccepted tags 

Count of tag slots in use 

Address of start of the TAG gueue for this 

RSCS link. 
MSG gueue pointer 
Link transaction count 
Error count 
Timeout count 
Spare halfword 
Clock comparator value for this link 
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REQBLOCK 
REfiBLOCK: NPT REQUEST BLOCK 

REQBLOCK defines data and information for a request for file processing by the NPT line 
driver. 

The first four fields (hex 0-F) of this DSECT form a GIVE request table, which is 
described in "GIVEE: A GIVE Element", in this section. 

The next seven fields (hex 10-23) of this ESECT for a GIVE request buffer in the 
format of a File Request Element, which is described in "Appendix C: RSCS Request 
Elements." 





a 

8 
C 
10 
14 
18 
1C 
24 
28 
2C 



RDEVSYNC 
RDEVREQN 



RDEVREQ 
RDEVRESP 

RDEVRLEN | HDEVFUN | RDEVRESV | RDEVSOPT 

RDEVTAG 
RDEVFIOA 
RDEVLINK 



RDEVSAME 



I 

RDEVSTYL 
RDEVFLAGS 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 





Hex locat 


ions 


through 


I £ 


oS£^se the NPT GIVE request table 





RDEVSYNC 


DC 


F'O' 




Synch lock 


4 


RDEVREQN 


DC 


CL4'AXS' 




File access task 


8 


RDEVREQ 


DC 


A(0) 




Request buffer address 


C 


RDEVRESP 


DC 


AL1 (0) ,AL3(0) 


Response buffer address 




Hex locat 


ions 


through 


1F 


comprise the NPT GIVE request buffer 




is ii® f 0£Mi 


of a file 


£e5ii§st element (as shown in A££endix C) 


10 


RDEVRLEN 


DC 


AL1 (0) 




Request length 


11 


RDEVFUH 


DC 


AL1 (0) 




Request function 


12 


RDEVRESV 


DC 


AL1 (0) 




Reserved byte 


13 


RDEVSOPT 


DC 


AL1 (0) 




Sub option byte 


14 


RDEVTAG 


DC 


A(0) 




Tag address 


18 


RDEVFIOA 


DC 


A(0) 




File I/O area address 


1C 


RDEVLINK 


DC 


CL8» • 




Link name 


24 


RDEVNAME 


DC 


C« • 




Device name 


27 


RDEVSTYL 


DC 


C ' 




Device style 


2C 


RDEVFLAGS 


DC 


AL1 (0,0,0,0) 


Device flags 
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SVECTORS 



SVECTOBS: LOW STORAGE DEFINITIONS 



The SVECTORS DSECT defines low storage for the RSCS virtual machine, 
types of storage: machine- defined and RSCS-def ined. 



It includes two 



BACHINE-DEFIMED LOW STORAGE 

The SVECTORS machine-defined low storage defines machine status data referenced during 
program execution and required by System/370 architecture. 




4 
8 
C 
10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 



IPLPSH 



IPLCCW1 



IPLCCW2 



OLDEXT 



OLDSVC 



OLDPROG 



OLDMACH 



OLDIO 



CSH 
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SVECTORS 



48 
4C 
50 
44 
58 
5C 
60 
64 
68 
6C 
70 
74 
78 
7C 



CAW 

/////////////////////////////////////////////////////// 

TIMER 

/////////////////////////////////////////////////////// 

MENEXT 



NEWSVC 



NEWPROG 



NEWMACH 



NEWIO 



Hexadecimal Field 
Displacement Name 



Field Description, Contents, Meaning 





8 

10 

18 
20 
28 
30 
38 

40 
48 

4C 
50 
54 

58 
60 
68 
70 
78 



lELPSW DS 
IPLCCW1 DS 
IPLCCW2 DS 

OLDEXT DS 
OLDSVC DS 
OLDPROG DS 
OLDMACH DS 
OLDIO DS 



CSW 
CAW 



TIMER 



DS 
DS 

DS 
DS 
DS 



NEWEXT DS 
NEWSVC DS 
NEWPROG DS 
NEWMACH DS 
NEWIO DS 



D X'00040000',V(DMTINI) 

D 

D 



F 4X'FF» 
F 



External interrupt old PSW 
Supervisor call old PSW 
Program check old PSW 
Machine check old PSW 
Input/output old PSW 

Channel status word 
Channel address word 

Unused 

Unused 



D X'00040000' ,V(DMTEXT) 
D X'00040000',V(DMTSVC) 
D X'00040000' ,A(REXOUCH) 
D X»00020000', A (OLDMACH) 
D X'00040000', V(DMTIOMIN) 
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SVECTORS 



RSCS-DEFINED LOW STORAGE 



RSCS-defined low storage begins at hex location 200 and is defined specifically for the 
RSCS virtual machine. It contains pointers to modules that comprise the supervisor, to 
supervisor control queues, and to queues of requests for supervisor services. 



200 
204 
208 
20C 
210 
214 
218 
21C 
220 
224 
228 
22C 
230 
234 
238 
23C 
240 
244 



NEWPSH 



NEWFSH 



SSAVE 



SSAVE 



ACTIVE 



HAINHAP 



HAINSIZE 
QUEUE 



QUEUEND 
FREEQ 
TASKQ 
MPXIOQ 



SELIOQ 
lOEXITQ 



EXTQ 



ALERTQ 

GIVEQ 

QREQ 



248 
24C 
250 
254 
258 
25C 
260 
264 
268 
26C 
270 
274 
278 
27C 
280 
28 4 
288 
28C 



DISPATCH 

WAITRIQ 

POSTREQ 

lOREQ 

TASKREQ 

MAINREQ 

ASYNREQ 

ALERT REQ 

GIVEREQ 

TAKEREQ 

TVECTORO 

TVECT0R1 



TVECT0R2 
TVECT0R3 
TVECT0R4 
TVECT0R5 
TVECT0R6 
TVECT0R7 



Hexadecimal Field 
Displacement Name 



ORG SVBCTORS+X»200' 



200 


NEHPSW 


DS 


D 


20C 


SSAVE 


DS 


2F 


210 


ACTIVE 


DS 


X 






DS 


AL3 


214 


HAINHAP 


DS 


V(DHTHAPHS) 


218 


HAINSIZE 


DS 


F 



Field Description, Contents, Heaning 

Leave room for machine 

extensions 
D'O' Dispatched PSW for last dispatcher 
2F'0' General— purpose low storage save area 
X'OO* ID of currently active task 
AL3 (0) Address of task element for 

last dispatchee 
Address of start of main 

storage allocation map 
F'O' Total number of pages in main storage 
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SVECTORS 



Hexadecimal 
Displacement 


Field 
Name 






21C 

220 


QUEUE 
QUEUEND 


DS 
DS 


V (S QUEUE) 

V (SQUEUEND) 


224 
228 
22C 
230 
234 


FREEQ 

TASKQ 

MPXIOQ 

SELIOQ 

lOEXITQ 


DS 
DS 
DS 
DS 
DS 


A(0) 
A(0) 
A(0) 
A(0) 
A(0) 


238 


EXTQ 


DS 


A(0) 


23C 


ALERTQ 


DS 


A(0) 


240 


GIVEQ 


DS 


A(0) 


244 


QREQ 


DS 


V (DMTQRQ) 


248 
24C 
250 
254 
258 


DISPATCH 

WAITREQ 

POSTREQ 

lOREQ 

TASKREQ 


DS 
DS 
DS 
DS 
DS 


V (DMTDSP) 

V (DMTWAT) 

V (DMTPST) 

V (DMTIOMRQ) 

V (DMTASK) 


25C 


HAINREQ 


DS 


V (DMTSTO) 


260 


SYNREQ 


DS 


V (DMTASY) 


264 


LERTREQ 


DS 


A (DMTSIG) 


268 


GIVEREQ 


DS 


V(DMTGIV) 


26C 


TAKER EQ 


DS 


V (DMTAKE) 


270 
274 
278 
27C 
280 
284 
288 
28C 


TVECTORO 
TVECT0R1 
TVECT0R2 
TVECT0R3 
TVECT0R4 
TVECT0R5 
TVECT0R6 
TVECT0R7 


DS 
DS 
DS 
DS 
DS 
DS 
DS 
DS 


A(0) 
A(0) 
A(0) 
A(0) 
A(0) 
A(0) 
A(0) 
A(0) 




TLINKS 

THOUTE 

TPORTS 

TTAGQ 

TCOM 


EQU 
EQU 
EQU 
EQU 
EQU 


TVECTORO 
TVECT0R1 
TVECT0R2 
TVEGT0R3 
TVECT0R4 



Field Description, Contents, Meaning 

Address of start of supervisor queue 
Address of end of last supervisor 

queue element 
Address of start of free element queue 
Address of start of task element queue 
Address of start of multiplexer I/O queue 
Address of start of selector I/O queue 
Address of start of asynchronous 

I/O request element queue 
Address of start of external 

request element queue 
Address of start of task 

asynchronous request element queue 
Address of start of GIVE request 

element queue 

Supervisor queue allocation 

request entry address 
Task dispatcher entry address 
Wait request entry address 
Post request entry address 
I/O request entry address 
Task management request entry 

address 
Main allocation request 

entry address 
Asynchronous interrupt request 

entry address 
Task asynchronous signal request) 

A (ALERT) entry address 
Task request GIVE request entry 

address 
Task request TAKE request entry 

address 



Task 


defined 


field 


Task 


defined 


field 


Task 


defined 


field 


Task 


defined 


field 


Task 


defined 


field 


Task 


defined 


field 


Task 


defined 


field 


Task 


defined 


field 



Link table address 
Reserved for IBM use 
Switchable port table address 
Tag slot queue 
Common routine chain 
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TAG 



TAG: THE RSCS FILE DESCRIPTOR 



The TAG DSECT describes a file enqueued for processing by RSCS. The data in this area is 
built from the TAG record associated with a file via the CP tag command and from the CP 
spool file block (SFB) that describes the file. 





^ 

8 

c 

10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 
4C 
50 
54 
58 
5C 
60 
64 
68 



TAGNEXT 

TAGBLOCK 

TAGINLOC 

TAGLINK 

TAGINTOD 



TAGINVM 

TAGRECNM 
TAGRECLN | TAGINDEV | TAGCLASS 

TAGID I TAGCOPY 

TAGFLAG | TAGFLAG2 \ ///////////////////////////// 



TAGNAHE 



TAGTYPE 



TAGDDIST 



TAGTOLOC 



TAGTOVM 



TAGPRIORI TAGDEV I ///////////////////////////// 
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TAG 



Bexadecimal Field 
Displacement Name 






TAGNEXT 


DS 


IF 


4 


TAGBLOCK 


DS 


IF 


8 


TAGIHLOC 


DS 


CL8 


10 


TAGLINK 


DS 


CL8 


18 


TAGIMTOD 


DS 


CL8 


20 


TAGINVM 


DS 


CL8 


28 


TAGBECNM 


DS 


IF 


2C 


TAGRECLN 


DS 


1H 


2E 


TAGINDEV 


DS 


IX 


2F 


TAGCLASS 


DS 


CL1 


30 


TAGID 


DS 


1H 


32 


TAGCOPY 


DS 


1H 


34 


TAGFLAG 


DS 


IX 


35 


TAGFLAG2 


DS 


IX 


36 




DS 


IH 


3A 


TAGNAHE 


DS 


CL12 


44 


TAGTYPE 


DS 


CL12 


50 


TAGDIST 


DS 


CL8 


58 


TAGTCLGC 


DS 


CL8 


60 


TAGTOVM 


DS 


CL8 


68 


TAGPRIOR 


DS 


CL2 


6A 


TAGDEV 


DS 


2X 



Field Description, Contents, Meaning 

Address of next active queue entry 

Address of associated I/O area 

Originating location 

Next location for transmission 

Time of file origin 

Originating virtual machine 

Number of records in file 

Maximum file data record length 

Device code of originating device 

File output class 

File number at origin location 

Number of copies required 

VM/370 SFBLOK control flags (SFBFLAG) 

VM/370 SFBLOK control flags (SFBFLAG) 

Spare halfword 

Filename 

Filetype 

File distribution code 

Destination location ID 

Destination virtual machine ID 

Transmission priority 

Active file's virtual device address 



TAGLEN EQU *-TAGNEXT 



Length of the file TAG 
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TAGAREA 



TAGABEA 



The TAGAREA DSECT contains tag queue pointers and other tag control information, 
pointed to by TTAGQ in SVECTORS. 



It is 






r 







TAGAFREE 
TAGACIN 




4 








8 






TAGACOUT 

1 TAGAHOLD 




C8 


L 


TAGAGOT 







Hexadecimal Field 
Displacement Name 



TAGAFREE DC A (0) 
TAGACIN DC A (0) 
TAGACOOT DC A (0) 



TAGAGOT DC H'O* 
TAGAHOLD DC H'0» 



Field Description, Contents, Meaning 

Address of queue of free TAG 

slots (or elements) 
Pointer to queue of active 

input TAGS 
Pointer to queue of active 

output TAGS 

Number free slots left 
Number slots to be held 
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TANKDSEC 



TAHKDSEC: SjlL UNIT RBCOBD TANK 

TANKDSEC is used to reference buffer data and control information contained in tanks, 
which are unit buffers used to deblock the larger TP buffers. (TP buffers are defined by 
the needs of an individual remote station and their size varies from station to 
station.) 



$TANKPOL in SKL points to a queue of available tanks. 



TANKCHN 

TANKBCB I TANKSRCB | TANKCNT 
TANKDATA 



88 



Hexadecimal Field 
Displacement Name 




^ 
5 
6 
8 
8C 



TANKCHN DC 
TANKBCB DC 
TANKSRCB DS 
TANKCNT DS 
TANKDATA DS 
TAMKEND DS 



A(0) 

1C 

1C 

1H 

CL132 

OF 



Field Description, Contents, Meaning 

Tank chain field 

Tank record control byte 

Tank subrecord control byte 

Count of data bytes in tank 

Data area in tank 

Force next to word boundary 
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TASKE 



TASKE: A TASK ELEMENT 

The TASKE DSECT defines symbolic names of status information pertaining to an active 
task. 

The TASKQ field of SVECTORS points to a queue of task elements, each of which is defined 
by this DSECT. The queue consists of one task element (TASKE) for each active task. 



TASKNEXT 
TASKSAVE 
TASKNAHE 



C I TASKSPAR 

L . 



TASKSTAT 



TASKID 



Sexadecimal Field 
Displacement Name 






TASKNEXT 


DS 


IF 


4 


TASKSAVE 


DS 


IF 


8 


TASKNAME 


DS 


CLa 


C 


TASKSPAR 


DS 


AL2 


E 


TASKSTAT 


DS 


IX 


F 


TASKID 


DS 


IX 



Field Description, Contents, Meaning 

Address of the next element on 

the task element queue 
Address of this task's Task Save Area (TAREA) 
Task name specified by the task; 4 bytes 

long 
Reserved for IBM use 

Status flags associated with the task 
Number ID for the task; 1 byte is assigned 

by supervisor when task is made active 



Siis defined in TASKSTAT 
WAITING EQU X«80' 
LOCKLIST EQU X'UO* 



LIMBO 



EQU X'OI* 



Flag set to 1 when task is ncn-dispatchable 
Flag set to 1 while task is waiting 

for the synch lock list 
Flag set to 1 when a task is being 

terminated 
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TCTDSECT 

ICTDSECT: SML TASK CONTROL TABLE 

TCTDSECT defines the format of six tables in SML storage which you can find at labels 
$CC0M1, $WC0M1, $PC0M1, $BC0M1, $UC0M1, and $JC0M1. Each table corresponds to an SML 
input/output processor and is used by that processor to perform its I/O function. 

The GIVE request table and the GIVE request buffer used by SML are embedded in the 
task control table at hex locations 24 through 30 and 34 through 40, respectively. 



14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 
4C 
50 
54 
58 
5C 



TCTFCS 



TCTSAV1 

TCTNEXT 

I TCTBCBR I TCTECBT 
TCTCOM 
TDEVSYNC 
TDEVREQN 
TDEVREQ 



TDEVSOPT 



TDEVRESP 

TDEVRLEN | TDEVFUN | TDEVRESV | 

TDEVTAG 
TDEVFIOA 
TDEVLINK 



TSW1 



TSW2 

TCTTOVM 

TCTTANK 
TCTBUFER 



TSW3 



TSiJ4 



TCTTNKLM 



TCTTNKCT 



I TCTBUFLM | TCTBUFCT 
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TCTDSECT 



Hexadecimal 


Field 






Cisplacement 


Name 









TTCT 


DS 


OH 





TCTSTRT 


DS 


CL2 


2 


TCTENTY 


DS 


CL2 


H 


TCTETN 


DS 


CL4 


8 


TCTCCW 


DS 


CL1 


9 


TCTDATA 


DS 


AL3 


C 


TCTFLAG 


DS 


CL1 


D 


TCTOPCOD 


DS 


CL1 


E 


TCTCCWCT 


DS 


AL2 


10 


TCTECB 


DS 


CL1 



Bits defined in TCTECB 
TCTBUSY EQU X'10' 



Field Description, Contents, Meaning 



Branch to proper processor entry 

Address portion modified by processor 

Branch to next processor via commutator 

CCH for device operation code 

Address of data transferred 

Flags on CCW 

Save area for CCH operation code 

CCH count of data transferred 

Event control block 



Device busy bit 



11 



TCTSTAT DS CL1 

Mits defined in TCTSTAT 

TCT1052 EQU X'10' 

TCTBEL EQU X'OU' 

TCTOPEN EQU X'80' 

TCTACT EQU X'UO' 



12 


TCTHFB 


DS 


AL1 


14 


TCTSAV1 


DS 


IF 


18 


TCTNEXT 


DS 


IF 


1C 


TCTFCS 


DS 


AL2 


IE 


TCTRCBR 


DS 


CL1 


IF 


TCTRCBT 


DS 


CL1 


20 


TCTCOM 


DS 


IF 



Status flags 



TCT status flags for 1052 

Interlock release reguest for console 

TCT open bit 

Action reguired on this TCT 

Halting for buffers 

Save area for processor routine 

Next TCT in chain 

Function control seguence mask 

RECV record control block 

Trans record control block 

Pointer back to commutator 



Hex locations 24 through 30 com£rise the SML 
a±ve reguest table 



24 
28 
2C 
30 



TDEVSYNC DS IF 

TDEVREQN DS CL4 

TDEVREQ DS 1A 

TDEVRESP DS 1A 



Synch lock 
File access name 
Reguest buffer address 
Response buffer 



iJ^x locations 34 through 40 comprise the give reguest 
i!iJfe£ is ih6 form of a file reguest element (as shown 
is lEpendix C) 

Reguest length 
Reguest function 
Reserved byte 
Sub option byte 
Tag address 
File I/O area 
Link name 
Device switch 1 
Device switch 2 
Device switch 3 
Device switch 4 
VM output destination 

Next tank to output 

Address of current buffer 

Haximum number of tanks eissignable 

Current number assigned 

Maximum number of buffers assignable 

Current number assigned 



34 


TDEVRLEN 


DS 


AL1 


35 


TDEVFUN 


DS 


AL1 


36 


TDEVRESV 


DS 


AL1 


37 


TDEVSOPT 


DS 


AL1 


38 


TDEVTAG 


DS 


1A 


3C 


TDEVFIOA 


DS 


1A 


40 


TDEVLINK 


DS 


CL8 


48 


TSH1 


DS 


AL1 


49 


TSH2 


DS 


AL1 


4A 


TSH3 


DS 


AL1 


4B 


TSH4 


DS 


AL1 


4C 


TCTTOVM 


DS 


CL8 


54 


TCTTANK 


DS 


IF 


58 


TCTBUFER 


DS 


IF 


5C 


TCTTNKLM 


DS 


CL1 


5D 


TCTTNKCT 


DS 


CL1 


5E 


TCTBUFLM 


DS 


CL1 


5P 


TCTBUFCT 


DS 


CL1 
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TAREA 



TAREA: A TASK SAVE AREA 



TAREA an area associated with each task. This area is used to save the contents of the 
task's PSW and general registers and to flag whether or not a task has information ready 
to pass. 

TAREA comprises the first 78 bytes of the storage area defined in each task's storages 




4 
8 
C 
10 
14 
18 
1C 
20 
24 
28 
2C 
30 
34 
38 
3C 
40 
44 
48 



TPSH 
TPSW 
TGREGO 



TGREG1 
TGREG2 
TGREG3 
TGREG4 
TGREG5 
TGREG6 



TGREG7 
TGREG8 



TGREG9 

TGBEG10 

TGREG11 

TGREF12 

TGREG13 

TGREG14 



TGREG15 
TREQLOCK 



Section 3. RSCS Data Areas and Control Blocks 263 



TAREA 



Hexadecimal Field 
Displacement Name 






TPSH 


DS 


ID 


8 


TGBEGO 


DS 


IF 


C 


TGREG1 


DS 


IF 


10 


TGREG2 


DS 


IF 


14 


TGREG3 


DS 


IF 


18 


TGREG4 


DS 


IF 


1C 


TGREG5 


DS 


IF 


20 


TGREG6 


DS 


IF 


2H 


TGREG7 


DS 


IF 


28 


TGREG8 


DS 


IF 


2C 


TGREG9 


DS 


IF 


30 


TGREG10 


DS 


IF 


34 


TGREG11 


DS 


IF 


38 


TGREG12 


DS 


IF 


3C 


TGREG13 


DS 


IF 


40 


TGREG14 


DS 


IF 


44 


TGREG15 


DS 


IF 


48 


TREQLOCK 


BS 


IF 



Field Description, Contents, Meaning 

PSW with which a temporarily interrupted task 
resumes execution 

Save area for general register 
Save area for general register 1 
Save area for general register 2 
Save area for general register 3 
Save area for general register 4 
Save area for general register 5 
Save area for general register 6 
Save area for general register 7 
Save area for general register 8 
Save area for general register 9 
Save area for general register 10 
Save area for general register 11 
Save area for general register 12 
Save area for general register 13 
Save area for general register 14 
Save area for general register 15 
Synchronization lock used to signal 

whether or not a task has information 
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APPENDIXES 



The following appendixes supplement the information in this publication: 

"Appendix A: CP and RSCS Equate Symbols" contains assembler language equate symbols 
used in CP and RSCS to reference data. 

"Appendix B: RSCS Control Areas" contains areas containing constants and variables 
used during execution of RSCS tasks. 

"Appendix C: RSCS Request Elements" contains information on and formats of tables used 
during RSCS task-to-task communication. 

"Appendix D: CMS Equate Symbols" contains assembler language equate symbols used in 
CMS to reference data. 

"Appendix E: Data Areas and Control Blocks References" contains the names of CP, CMS, 
and RSCS control blocks. This appendix also contains information showing which 
modules reference the data areas or control blocks and, in some cases, gives 
information on how the data areas or control blocks are created and released. 
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APPENDIX A: CP AND RSCS EQUATE SYMBOLS 



This appendix contains assembler language equate symbols used to reference CP and RSCS 
data for: 



VM/370 Device Classes, Types, Models and Features 

VM/370 Machine Usage 

VM/370 Extended Control Registers 

VM/370 CP Usage 

VM/370 Registers 



Appendix A: CP and RSCS Equate Symbols 267 



IMZ370 DEUCE CLASSES, TYPES, MODELS AND FEATURES 



Field 






Name 






CLASTERM 


EQU 


X'SO" 


TYP2700 


EQU 


X'40' 


TYP2955 


EQU 


TYP2700 


TYPTELE2 


EQU 


X«20' 


TYPTTY 


EQU 


X'20» 


TYPIBM1 


EQU 


XMO* 


TYP2741 


EQU 


X' 18' 


TYP1050 


EQU 


X« 14' 


TYPUNDEF 


EQU 


X'lC 


TYPBSC 


EQU 


X'80' 


TYP3210 


EQU 


X«00' 


TYP3215 


EQU 


TYP3210 


TYP2150 


EQU 


TYP3210 


TYP1052 


EQU 


TYP3210 


CLASGRAF 


EQU 


X'40' 


TYP2250 


EQU 


X'80' 


TYP2260 


EQU 


X'40' 


TYP2265 


EQU 


X'20' 


TYP3066 


EQU 


XMO» 


TYP1053 


EQU 


X'08' 


TYP3277 


EQU 


X»04' 


TYP3284 


EQU 


X«02» 


TYP3286 


EQU 


TYP3284 


TYP3158 


EQU 


TYP3277 



FTROPRDR EQU 
CLASURI EQU 



lYPRDR 


EQU 


TYP2501 


EQU 


TYP2540R 


EQU 


TYP3505 


EQU 


TYP1442R 


EQU 


TYP2520R 


EQU 


TYPTIMER 


EQU 


TYPTR 


EQU 


IYP2U95 


EQU 


TYP2671 


EQU 


TYP1017 


EQU 


CLASURO 


EQU 


TYPPUN 


EQU 


TYP2540P 


EQU 


TYP3525 


EQU 


TYP14U2P 


EQU 


TYP2520P 


EQU 


TYPPRT 


EQU 


TYP1U03 


EQU 


TYP3211 


EQU 


TYPia43 


EQU 


TYPTP 


EQU 


TYP1018 


EQU 



X 


80' 


X 


•20' 


X 


'80' 


X 


81» 


X 


'82' 


X' 


84' 


X 


'88' 


X 


90' 


X 


'40' 


X' 


20' 


X 


'21' 


X' 


22' 


X 


'24' 


X' 


10' 


X 


•80' 


X 


82' 


X 


'84' 


x« 


88' 


X 


'90' 


x« 


40' 


X 


41' 


X 


42' 


X' 


44' 


X 


20' 


x« 


24* 



Field Description, Contents, Meaning 

Terminal device class 

2700 bisync line 

2955 communications line 

Telegraph terminal control type II 

Teletype terminal 

IBM terminal control type I 

2741 communications terminal 

1050 Ccommunications terminal 

terminal device type is undefined 

Bisync line for 3270 remote stations 

3210 console 
3215 console 
2150 console 

1052 console 

Graphics device class 

2250 display unit 
2260 display station 
2265 display station 
3066 console 

1053 printer 

3277 display station 
3284 printer 
3286 printer 
3158 console 

Operator ID card reader 

Unit record input device class 

Card reader device 

2501 card reader 

2540 card reader 

3505 card reader 

1442 card reader/punch 

2520 card reader/punch 

Timer device 

Tape reader device 

2495 magnetic tape cartridge reader 

2671 paper tape reader 

1017 paper tape reader 

Unit record output device class 
Card punch device 
2540 card punch 
3525 card punch 

1442 card punch 
2520 card punch 
Printer type device 
1403 printer 

3211 printer 

1443 printer 
Tape punch device 

1018 paper tape punch 
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Field 






Name 






FTRUCS 


EQU 


X'01« 


CLASTAPE 


EQU 


X»08' 


TYP2401 


EQU 


X'80' 


IYP2415 


EQU 


X'40' 


TyP2420 


EQU 


X'20' 


TYP3420 


EQU 


X' 10' 


TYPamo 


EQU 


X'08« 


IYP3411 


EQU 


TYP3410 


FTR7TRK 


EQU 


X'80' 


FTRDLDMS 


EQU 


X'40' 


FTRTRANS 


EQU 


X'20' 


FTRDCONV 


EQU 


X'lO' 


CLASDASD 


EQU 


X'04' 


TYP2311 


EQU 


X'80' 


TYP2314 


EQU 


X'40' 


a:YP2319 


EQU 


TYP2314 


TYP2321 


EQU 


TYP2311 


IYP3330 


EQU 


X' 10' 


TYP3333 


EQU 


TYP3330 


IYP3350 


EQU 


X'08' 


TYP2301 


EQU 


TYP2311 


IYP2303 


EQU 


TYP2311 


TYP2305 


EQU 


X'02' 


IYP3340 


EQU 


X'01' 


FTRRPS 


EQU 


X'80» 



FTREXTSN EQU X'40' 

FTR2311T EQU X'20' 

FTR2311B EQU X'10' 

FTR35MB EQU X'08» 

FTR70HB EQU X'04' 

FTRRSRL EQU X'02' 

CLASSPEC EQU X'02' 



TYPCTCA 


EQU 


X'80' 


TYP3704 


EQU 


X'UO' 


TYP3705 


EQU 


TYP3704 


TYPRSV1 


EQU 


X'02' 


lYPUNSUP 


EQU 


X'01' 


FTRTYP1 


EQU 


X'10' 


FTRTYP2 


EQU 


X'20' 



Field Description, Contents, Meaning 

UCS feature 

Magnetic tape device class 

2401 tape drive 
2415 tape drive 
2420 tape drive 
3420 tape drive 

3410 tape drive 

3411 tape drive 

7-track feature 
Dual density feature 
Translate feature 
Data conversion feature 

Direct access storage device class 

2311 disk storage drive 

2314 disk storage facility 

2319 disk storage facility 

2321 Data cell drive 

3330 disk storage facility 

3333 disk storage facility 

3350 disk storage facility 

3201 parallel drum 

2303 serial drum 

2305 fixed head storage device 

3340 disk storage facility 

Rotational positional sensing (RPS) 

installed (3340) 
Extended sense bytes (24 bytes) 

(= VDEV231T) Top half of 2314 used as 2311 
(= VDEV231B) Bottom half of 2314 used as 2311 
35 MB data module mounted (3340) 
70 ME data module mounted (3340) 
Reserve/release are valid CCW OP codes 

Special device class 

Channel-to-channel adapter 

3704 Programmable comm. CTL unit 

3705 Programmable comm. CTL unit 
Reserved for IBM use 

Device unsupported by VM/370 

Type 1 channel adapter (3704/5) 
Type 2 channel adapter (3704/5) 
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VMZ370 MACHINE USAGE 



field 
Name 



Field Description, Contents, Meaning 



Siis defined in standard/extended PSH 



EXTMODE EQU X 

MCHEK EQU X 

WAIT EQU X 

PROBMODE EQU X 

Eits defined in 



PERMODE EQU X 

TRANMOEE EQU X 

lOMASK EQU X 

EXTMASK EQU X 



extended PSW 
40« Bit 01 

04* Bit 05 

02' Bit 06 

01* 



Sii§ Refined in channel status word (CSW) 



ATTN 

SH 

CUE 

BUSY 

CE 

EE 

UC 

UE 

PCI 

IL 

PRGC 

PRTC 

CDC 

CCC 

IFCC 

CHC 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



Jit§ JsJised in sense b^te 



CMDREJ 

INTREQ 

BUSOUT 

EQCHK 

DATACHK 



EQU 
EQU 
EQU 
EQU 
EQU 



08* 
04' 
02' 
01' 



Bit 12 - extended mode 

Bit 13 - machine check ENABLED 

Bit 14 - wait state 

Bit 15 - problem state 



per enabled 
translate mode 
summary 10 mask 



Bit 07 - summary external mask 



80' 
40' 
20' 
10' 
08' 
04* 
02' 
01' 

80' 
40' 
20' 
10' 
08' 
04' 
02' 
01' 



Bit 32 - attention 

Bit 33 - status modifier 

Bit 34 - control unit end 

Bit 35 - busy 

Bit 36 - channel end 

Bit 37 - device end 

Bit 38 - unit check 

Bit 39 - unit exception 

Bit 40 - program control interrupt 
Bit 41 - incorrect length 
Bit 42 - program check 
Bit 43 - protection check 
Bit 44 - channel DATA check 
Bit 45 - channel control check 
Bit 46 - interface control check 
Bit 47 - chaining check 



lijts defined in channel command word (CCH) 

CD EQU X'80' Bit 32 - chain data 

CC EQU X'40' Bit 33 - command chain 

SILI EQU X'20' Bit 34 - suppress incorrect length ind. 

SKIP EQU X'10' Bit 35 - suppress data transfer 

PCIF EQU X'08' Bit 36 - program-control interrupt FETCH 

IDA EQU X'04' Bit 37 - indirect data address 



80' 
40' 
20' 
10' 
08' 



-- common to most devices 
Bit - command reject 
Bit 1 - intervention required 
Bit 2 - bus out 
Bit 3 - equipment check 
Bit 4 - data check 
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VM^370 EXTENDED CONTBOL REGISTERS 



Field 
Name 

l4i^ defined in CREG 
BYTE 

ELKMPX EQU X'80» 
SSMSDPP EQU X'40» 

BYTE 1 

PAGE4K EQU X»80» 

PAGE2K EQU X«UO» 

SEG1M EQU X»10» 



Field Description, Contents, Meaning 



Bit 00 - enable block multiplexing 
Bit 01 - enable SSM suppression 



Bit 08 - use 4K pages 
Bit 09 - use 2K pages 
Bit 11 - use 1M segments 



BYTE 2 






CKCHASK 


EQU 


X«08« 


CPTMASK 


EQU 


X'OU' 



Bit 20 - mask on change clock comparator int. 
Bit 21 - mask on CPU timer int. 



BYTE 3 

INTMASK EQU X«80» 

KEYMASK EQU X«40» 

SIGMASK EQU X»20' 



Bit 2U - mask on interval timer int. 
Bit 25 - mask on operator key int. 
Bit 26 - mask on external signals 2-7 



Bits defined 


in CREG 


BYTE 






PERSUBR 


EQU 


X'80' 


PERIFET 


EQU 


X«40' 


PERSALT 


EQU 


X«20» 


PERGPRS 


EQU 


XMO" 


Bits defined 


in CREG 14 


BYTE 






HARDstop 


EQU 


X'80« 


SYNCL06 


EQU 


X'40' 


lOLOG 


EQU 


X«20' 


RECOVRPT 


EQU 


X'08' 


CONFGRPT 


EQU 


X'04« 


DAHAGRPT 


EQU 


X«02' 


NARNGRPT 


EQU 


X'OI" 


BYTE 1 






ASYNELOG 


EQU 


X«80' 


ASYMFLOG 


EQU 


X'40» 



Bit 00 - monitor successful branches 
Bit 01 - monitor instruction fetches 
Bit 02 - monitor storage alteration 
Bit 03 - monitor register alteration 



Bit 00 - check STOP control 

Bit 01 - synchronous logout control 

Bit 02 - I/O logout control 

Bit 04 - recovery report mask 

Bit 05 - configuration report mask 

Bit 06 - external damage report mask 

Bit 07 - warning condition report mask 



Bit 08 - asynchronous extended logout ctl 
Bit 09 - asynchronous fixed logout ctl 
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IMIIQ. CP USAGE 



Field 
Naae 



Field Description, Contents, Meaning 



Bits defined for TBANS macro 



BRING 

DEFER 

LOCK 

lOERETN 

SYSTEM 



EQO 
EQU 
EQU 
EQU 
EQU 



X'80' 
X»UO' 
X'20' 
X«10» 
X'08' 



Bring requested page 

Defer execution until page in core 

Lock page for 10 operation 

Return I/O errors to caller 

Call to DMKPTRAN for system V. M. space 



Janates |o£ ElII field for calls to DHKBiDRTZMOLDRI: 



EELSEGS EQU 

DELPAGES EQU 

MENPAGES EQU 

NEHSEGS EQU 

KEEPSEGS EQU 

OLDVHSEG EQU 

Siis defined 

ERRHSG EQU 

NORET EQU 

DFRET EQU 

OPERATOR EQU 

LOGDROP EQU 

LOGHOLD EQU 

PRIORITY EQU 

VMGENIC EQU 
NOAUTO 
ALARM 
NOTIHE 
INHIBit 
EDIT 
DCASE 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



X'80' 
X'40' 
X»08« 
X'OU' 
X«02' 
X«01' 

for ^§£ll]^^l 
X'0800' 
X'OUOO' 
X'0200' 
X'0100' 
X«80' 
X'UO" 
X>20» 
XMO' 

x'oa' 

X»02« 
X'OV 
X'08' 

x'oa« 

X'02' 



Release the segment tables 

Release the page/swap tables 

Build new page/swap table 

Build new segment table 

Retain informatin in old segment table 

VMSEG pointer in VMBLOK Vvalid 



I/O via DMKQCN 

Output - control 
Output - return 
Output - FRET bu 
Output - message 
Output - logoff 
Output - logoff 
Output - HRITE -T 
I/O reguest gene 
Output - suppres 
Output - sound t 
Output - suppres 
Input - prevent 
Input - edit inp 
Input - translat 



program error message 
immediately after call 
ffer after queueing 

for system operator 
& drop line after message 
8 hold line after message 
BIS message immediately 
rated by virtual machine 
s auto carriage return 
he audible alarm 
s time stamp on message 
display of this data 
ut data for corrections 
e data to uppercase 



ISM^es for S£Ool file recovery routine - DMKCKS 



RDRCHM 
PCHCHN 
PRTCHN 
ADDSFB 
CHGSFB 
DELSFB 
OPHSFB 
ACTSFB 
CHGRDV 
CHGSHQ 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



X'01« 

X»02' 

X»04' 

X'08» 

XMO" 

X»20' 

X'40' 

X'80' 

X'0100' 

X'0200' 



SFBLOK goes on RDR chain 
SFBLOK goes on punch chain 
SFBLOK goes on print chain 
Add new SFBLOK to recovery cyl 
Change existing SFBLOK 
Delete SFBLOK from checkpoint 
It is an open print-punch file 
File being printed or punched 
Change attributes of real device 
checkpoint a SHQBLOK 
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Field 






Name 






Monitor i 


Class 


and Code 


MHCLPERF 


EQU 


X'OO' 


MNCOSYS 


EQU 


X'OOOO" 


MNCOTH 


EQU 


X'0061« 


MNCOTT 


EQU 


X«0062' 


MNCOSOS 


EQU 


X'0063« 
Record 


MNCLRESP 


EQU 


X'01' 


MNCOBRD 


EQU 


X'OOOO' 


MNCOWRIT 


EQU 


X'0001' 


MNCOERD 


EQU 


X»0002' 



MHCLSCH EQU X'02' 



MNCODQ EQU 

BNCOAQ EQU 

MMCOAEL EQU 

MNCLuser EQU 

MNCOUser EQU 

MNCLINST EQU 

MNCOSIM EQU 

MNCLDAST EQU 

MHCODASH EQU 

MNCODAS EQU 

MNCLSEEK EQU 

HHCOCYL EQU 

MNCLSYS EQU 

MNCODA EQU 



X'0002' 
X'0003' 
X'0004' 

X'04' 

X'OOOO' 

X'05' 

X'OOOO' 

X'06' 

X'OOOO' 
X'OOOT 

X'07' 

X'OOOO' 

X'08' 

X'0002' 



Field Description, Contents, Meaning 

Monitor peform class 

Peform class, system peformance 
Monitor tape header record 
Monitor tape trailer record 
Monitor collection suspension 

Monitor response class 

Response class, begin read code 
Response class, write code 
Response class, end read code 

Monitor schedule class 

Schedule class, drop queue code 
Schedule class, add to queue code 
Schedule class, add to eligible list code 

Monitor user class 

User class, user data 

Monitor instruction simulation class 

INST class, instruction simulation code 

Monitor DASD/tape class 

DASTAP class, first record 
DASTAP class, data records 

Monitor DASD class 

DASD class , seeks code 

Monitor system profile class 

SYS class, DASD data 
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I1IZ370 REGISTERS 



Field 

Name Field Description, Contents, Meaning 



Sllbolic register equates 

RO 

R1 

R2 

R3 

R4 

R5 

R6 

R7 EQU 7 General register definition 

R8 

R9 

RIO 

R11 

H12 

B13 

R1U 

R15 

YO EQU Floating point register definiitions 

Y2 

Y4 

Y6 

CO 

CI 

C2 

C3 

C4 

C5 

C6 

C7 EQU 7 Control register definitions 

C8 

C9 

CIO 

C11 

C12 

C13 

cm 

C15 



EQU 





EQU 


1 


EQU 


2 


EQU 


3 


EQU 


a 


EQU 


5 


EQU 


6 


EQU 


7 


EQU 


8 


EQU 


9 


EQU 


10 


EQU 


11 


EQU 


12 


EQU 


13 


EQU 


14 


EQU 


15 


EQU 





EQU 


2 


EQU 


4 


EQU 


6 


EQU 





EQU 


1 


EQU 


2 


EQU 


3 


EQU 


4 


EQU 


5 


EQU 


6 


EQU 


7 


EQU 


8 


EQU 


9 


EQU 


10 


EQU 


11 


EQU 


12 


EQU 


13 


EQU 


14 


EQU 


15 
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APPENDIX B: RSCS CONTROL A^EAS 



This appendix lists the control areas used during task processing. Information such as 
lists of synch locks, channel programs, TAKE request tables and buffers, and various work 
constants are included in these areas. 



AXS MONITOR CONTROL AREA 

The AXS Monitor Control Area is a data area used by DHTAXS to set up synch locks, a TAKE 
request table, a TAKE request and response buffer, and an input buffer. 



Field 
Name 
AXSNAME 
REXNAHE 

AXSLOCKS 



AXSREQ 
AXSRESP 

CMDIN 
CHDINPGS 

AXSCSAVE 



DC OF'O* ,CLU'AXS» 

DC OF'O' ,CLa'REX» 

DC A(ARRLOCK) 

DC A (REQLOCK) 

DC X»80« ,AL3(CMDL0CK) 



ARRLOCK 


DC 


F«0 


CMDLOCK 


DC 


F»0 


AXSTAKE 


DC 


OF* 



DC CL4« • 

DC AL1 {L«AXSREQ)AL3 (AXSREQ) 

DC A (AXSRESP) 



DC 


XLUO'OO" 


DC 


XL136«00' 


DC 


CL122' • 


DC 


X'OO' 


DC 


18F'0' 



Ei§i^ S§§££iEii2S» Contents, Meaning 
Task name for AXS routine 
Task name for control monitor 

File tag arrival synch lock address 
Request arrival synch lock address 
Command synch lock address 

File tag arrival synch lock 
Command synch lock 

TAKE request table 

Giver's task name 

Pointer to request buffer (input) 

Pointer to response buffer (output) 

TAKE request buffer 
TAKE response buffer 

Input buffer for command element 
Command in progress switch 

Common routine save area 
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REX MONITOR CONTROL ARE*: 

The REX Monitor Control Area is a data area used by DMTREX to initialize the DMTAXS and 
OMTLAX modules, point to queues of system data (such as the lin)c table chain and the 
chain of tag elements) , set up a series of synch locks for HEX processing function, set 
up a console element, read and write channel programs, a console table buffer, a message 
buffer, a TAKE request table, and buffer, and various work constants. 



Field 
Name 
REX REX 
REXAXS 
REXLAX 

REXTVECT 



REXEND 
REXLOCKS 

ATTNLOCK 
REXCONSL 



DMTREXCN 

CONSAEDR 

REXREAD 
REXWRITE 

REXIN 

REXHSG 

DMTREXID 

REXOUT 

REXTAKE 



REXREQ 
REXRESP 



DC OF' 0' ,CL4'REX' 

DC OF'O' ,CL8'DMTAXS' 

DC OF«0« ,CL8«DMTLAX' 

DC OF»0» 

DC V(DMTSYSLK) 

DC V(DMTSYSRT) 

DC V(DMTSYSPT) 

DC V(DMTSYSTQ) 

DC V(DMTCOMVC) 

DC V(DMTSYSND) 

DC OF'O' 

DC X'OO* ,AL3 (REQLOCK) 

DC X' 00' ,AL3 (ATTNLOCK) 

DC X'40',AL3 (REXCONSL) 

DC X'80' ,AL3 (PROGLOCK) 

DC OF'O' ,X'00' ,AL3 (0) 

DC F'O' 

DC AL2(C0NSADDR) 

DC ALl (1) 

DC AL1(TYP3252) 

DC A(0) 

DC 2F'0' 

DC X'OO' 

DC 3X'00' 

EQU REXCONSL 

EQU X'009' 

CCW X'OA', REXIN , SILI,L' REXIN 

CCW X'09' ,REXOUT+2,SILI,0 

DC CL130' ' 

DC CLII'M OP' 

EQU REXMSG+2 

DC CL130' • 

DC OF'O' 

DC CLU' ' 

DC ALl (L' REXREQ) ,AL3 (REXREQ) 

DC A (REXRESP) 

DC XLiaO'OO' 

DC ALl (0) 



Hiel^ Pescri£tion, Contents, leaning 
Task name 
AX S name 
LAXname 



Link table chain 
Route table chain 
Switchable port chain 
Tag slot queue 
Common routine vector 
End of REX initial load 

Main REX wait list 
Request arrival synch lock address 
Console attention synch lock address 
Console I/O synch lock address 
Program check synch lock address 
Console attention lock 

Synch lock for I/O operation 

CUU console device address 

One byte requested on unit check 

Console device type code 

Channel program address to be filled in 

SIO condition code and ending CSW 

return information 
Sense return information on 

unit check 
Unused 
External name 

Default console CUU 

Reader operator response 
Type a console message 

Console input buffer 

MSG command start 
Transfer user ID 
Output buffer 

Request TAKE table 

Sending task name filled in by 

TAKE manager 
Address and length of 

request buffer 
Address of response buffer 

TAKE request buffer 

Never any response messages 
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SML MOJITpR CCMTROL AREA 

The SML Monitor Control Area is used to define various constants, save areas, BSC control 
sequences, channel command words, and bit settings used during SML processing. 



Field 






Name 






CBUFFER 


DC 


A(0) 


CFCSOUT 


DC 


H'0« 


CFCSSTD 


DC 


X'88' 


CTEMP 


DC 


H'O' 


CMAXDUP 


DC 


H«3' 




DC 


AL1 (0) 


CBCBCNTO 


• DC 


AL1 (X'80') 




DC 


AL1 (0) 


CBCBCNTI 


DC 


AL1 (X'80') 




DC 


H'O' 


CBUFLAST 


DC 


lOX'OO' 


CRESP 


DC 


AL1 (0) 


CREGS 


DS 


3F 


CRETREGS 


DS 


3F Save area 


$COMEXIT 


DC 


A($START) 


CBCB 


DC 


X'OO' 


CSETBCB 


DC 


X' 00' 




DS 


OF 


CCSW 


DC 


XLS'OO' 


COLDRCB 


DC 


X'OO' 


CUNITCMD 


DC : 


IC'OO' 


CLASTCAH 


DC 


F'O' 


BUFSYNSW 


DC 


X'OO' 




Bits defined in BUFSYNSH 


$TPP»GHE 


EQU 


X'80' 


GFLSM 


EQU 


x'ao' 


GDQBUFS 


EQU 


X'20' 


SCOMBUSY 


EQU 


X'10' 


COWFAKE 


EQU 


X'08' 


CACKSW 


EQU 


X'Oit' 


ADAECB 


DC 


F'O' 


ADACDU 


DC 


X'OOOO' ,AL1 (1) , AL1 (TYP2700) 


A 


DCCWA DC A(CCTCCW) 


ADASIOCC 


EQU 


* 


ADACSH 


DC 


2F'0' 


ADASENSE 


DC 


F"0' 



ADSAV 



XSTXSEQ 
XETBSEQ 
XACKSEQ 
XMAKSEQ 



DC 8F'0' 

Control Seguences 

DC AL1 (XLDR,XSTX) 

DC AL1 (XTRL,XETB) 

DC AL1 (XDLE,XACKG) 

DC ALI (XSYN,XNAK) 



lis Id pescri£tion. Contents, Meaning 

Active communications buffer 

Last FCS transmitted to HASP 

Standard FCS 

Temporary storage 

Maximum repeated blocks 

First byte of halfword 

Block check count out 

Spacer 

Block count character expected 

Save of start of last buffer 
Response character received 
Register save area 

CGMSUD initial entry point 

Last BCB sent for reset 



Force fullword alignment 
Temporary storage for CSH 
Last RCB sent 
Command code storage 



CCH address save 



Buffer synchronization switch 



Stop all buffering 

Flush buffer 

Stop dequeuing buffers 

Communications inactive 

Dummy read on for UE recovery 

ACK received 

Synch lock 

Adapter CCW addr 
SIO condition code 
Adapter ending CSW 
Adapter sense byte 

$SIG register save area 



Start-of-text sequence 
End-of -text-block sequence 
Positive acknowlegement sequence 
Negative acknowlegement sequence 
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Field 

Name field Description, Contents, Meanina 

Chasasi Command Words 

formal Data Write with Return Data Read 

CCWA CCW 1 ,0,CC+SILI,0 Write buffer 

CCWB CCW 1,XETBSEQ,CC+SILI,2 Write ending sequence 

CCWC CCW 2,0,SILI,0 Read return data 

Dunmi read to turn off lost data sense 

CCWD CCW 2,0,SILI+SKIP,65000 Nonread a punch 

DISABLE COB Band 

CCWOFF CCW X«2F' ,0,SIL,1 Disable 

WRITE EQU X'01» Adapter write coBmand code 

READ EQU X'02" Adapter read command code 

NOP EQU X*03» Adapter NOP comaand code 

SENSE EQU X'04' Adapter sense command code 
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APPENDIX C: RSCS RE(2UEST ELEMMTS 



This appendix provides information on the format and use of RSCS request elements. Tl^ese 
elements are used by RSCS tasks in task-to-task communication. 

The information provided includes: 

• The name of the module that builds the element. 

• The function performed by the element. 

• A brief description of the elements usage. 

• The format of the element. 

• Any operational notes that might be useful in understanding how the element is used. 
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COMBIND ALEBT EIEHBNT FOHMIT II 

BOILT BY: DBTCMX 

FUNCTION: Execute an AXS command 

DESCRIPTION: This ALEBT element is passed via ALERT to the AXS task (DMTAXS) to request 
second-level processing of ORDER and PURGE commands. 



I ^ • 1 

I Length | Function | Response | I 

I (n-1) j Code: XM0',X»11» | Code | Modifiers | 



f* I I 

I I 

I linkid I 



I ^ . 1 

C I spoolid count | spoolid | 

I (n-X»E»)/2 I I 

10 I I I 

I 
I 
I 



I spoolid I spoolid 



OPERATIONAL NOTES 

The linkid field specifies the affected link. The spoolid fields are binary halfwords and 
specify the files enqueued on the specified link which are to be re-ordered or purged. 
The spoolid count field is a binary halfword and specifies the total number of spoolid 
fields present. The meanings of the other fields follow. 
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ORDER Command 



Function Code: XMO" 

Response Codes: 

X'OO' Element accepted for processing 
X" 10' Element rejected, busy 

Modifiers: 

X'80' Response messages go to local RSCS operator 
X'OO' Response messages go to specified link. 



PURGE Command 

Function Code: X'11' 

Response Codes: 

X'OO' Element accepted for processing 
X'10' Element rejected, busy 

Modifiers: 

X'80' Response messages go to local RSCS operator 

X'40' Purge all files engueued on the specified link 

X'OO' Purge only specified files, response messages go to specified link 
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COMMAND ALERT ELEMENT FORMAT A2 

BUILT BY: DMTCMX 

FUNCTION: Execute AXS command 

DESCRIPTION: This ALERT element is passed via ALERT to the AXS task (DMTAXS) to request 
second-level processing of CHANGE commands. 



Length | Function | Response | 

(X'33') I Code: X«20' | Code | Modifiers 



C 
10 
14 



1C 



linkid 



spoolid 

HOLD I CLASS 



I priority 
I COPY 



Distribution Code 



filename/f iletype, dsname 



OPERATIONAL NOTES 

The linkid field specifies the link on which the object inactive file is enqueued. The 
spoolid field is a binary halfword and specifies the object file's VM/370 RSCS 
identifier. 

The following fields are specified only when the corresponding file attribute is to be 
changed. If the field is not specified, it is set to all 1 bits (X'FF...'). 

• Priority halfword binary priority 0-99 

• HOLE X'7F' - set hold status 

X»3F' reset hold status (NOHOLD) 

• CLASS 1-byte EBCDIC class, A-Z, 0-9 

• COPY halfword binary copy count, 1-99 

• Distribution code 8-byte EBCDIC spool file distribution code 

• f ilename/filetype, dsname 2U-byte EBCDIC spool file filename or filetype or dsname 



282 IBM VM/370: Data Areas and Control Block Logic 



CHANGE Command 



Function Code: X«20' 

Response Codes: 

X'OO' Element accepted for processing 
X'10' Element rejected, busy 

Modifiers: 

X'80' Response messages go to local RSCS operator 
X'OO' Response messages go to specified link 
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COMBOD ALERT ELEHEMT FOBM AT LO 

BDILT BY: DMTCHX 

FUNCTION: Execute a line driver conmand 

DESCRIPTION: This ALERT element is passed via ALERT to a line driver task (DMTNPT, 
DHTSHL) to request second-level processing of START, DRAIN, FREE, HOLD, and 
TRACE commands. 



I Function | | 

length | Code: X<80,X*81, | Response | 
(X»OB') I X»82' ,X'83« ,X«84« I Code | Modifiers 




OPERATIONAL NOTES 



The locid specifies the location which is to receive response messages, 
the other fields follow. 



The meaning of 



START Command 



Function Code: X'80» 

Response Codes: 

X»00' Element accepted for processing 
X' 10' Element rejected, busy 

Modifiers: 

X'80' Start updated classes 
X«00» Reset DRAIN status 



DRAIN Command 



Function Code: X'81' 

Response Codes: 

X'OO' Element accepted for processing 
XMO» Element rejected, busy 

Modifiers: Unused 



FREE Command 



Function Code: X'82' 
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Response Codes: 

X'OO* Element accepted for processing 
X'lO* Element rejected, busy 

Modifiers: Unused 



HOLD Command 



Function Code: X'84' 

Response Codes: 

X'OO' Element accepted for processing 
X' 10' Element rejected, busy 

Modifiers: 

X'80' HOLD Immediate 

X'OO* HOLD after file processing 



TRACE Command 



Function Code: X'84' 

Response Codes: 

X'OO' Element accepted for processing 
X'10' Element rejected, busy 

Modifiers: 

X'CO' TRACE end 

X'80' TRACE errors 

X'OO' TRACE all 
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COMHAND ALERT ELEMENT FORMAT LJ 

BUILT BY: DMTCMX 

FUNCTION: Execute a line driver command 

DESCRIPTION: This ALERT element is passed via ALERT to a line driver task (DMTNPT, 
DMTSML) to request second-level processing of BACKSPAC and FHDSPACE 
commands. 



Length | Function | Response | 

(X'OF') I Code: X»90',X»91' | Code | Modifiers 



locid 



Count 



OPERATIONAL NOTES 

The locid specifies the location which is to receive response messages. The count field 
is a binary fullword, and specifies the number of units to be backspaced or 
forwardspaced. The meanings of the other fields follow. 



BACKSPAC Command 



Function Code: X'90« 

Response Codes: 

X'OO' Element accepted for processing 
X' 10' Element rejected, busy 

Modifiers: 

X»80' Backspace count 

X'OO' Backspace file (restart) 



FHDSPACE Command 



Function Code: X'91' 

Response Codes: 

X'OO' Element accepted for processing 
X'10' Element rejected, busy 

Modifiers: Unused 
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COMMAND ALERT ELEMENT FORMAT L2 



BUILT BY: 
FUNCTION: 
DESCRIPTION: 



DMTCMX 

Execute a line driver command 

This ALERT element is passed via ALERT to a line driver task (DMTNPT, 
DMTSML) to request second-level processing of FLUSH commands. 



I Length | Function 
I (X«OD') I Code: X'AO' 



I- 



I Response 
I Code 



I 

I Modifiers 



4 I 



locid 



I — 
c I 

I Spoolid 
I 



OPERATIONAL NOTES 

The locid specifies the location which is to receive response messages. The spoolid field 
is a binary halfword, and specifies the VM/370 RSCS identifier of the active file to be 
flushed. The meanings of the fields follow. 



FLUSH Command 



Function Code: X'AO' 

Response Codes: 

X'OO' Element accepted for processing 
X'10' Element rejected, busy 

Modifiers: 

X'80' Flush all copies, purge file 

X'40' Flush hold, keep file, do not decrement copy count 

X'OO' Flush, decrement copy count, purge file if no copy count remains 
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COMMANE ALERT ELEMENT FORMAT L3 (ALSO MESSAGE ALERT ELEMENT) 

BUILT BY: DMTCMX, DMTMGX 

FUNCTION: Execute a line driver commancl 

DESCRIPTION: This ALERT element is passed via ALERT to a line driver task (DMTNPT, 
DMTSML) to forward messages, and to request second-level processing of CMD 
comnands. 



I Length 

I (n-l) 

I — 

I 

I 



I Function | Response | 

I Code: X«B0',X«B1' | Code | Modifiers 



locid 



Message/Command Text 



OPERATIONAL NOTES 

The locid specifies the location which is to receive the message or command text. The 
meanings of the other fields are listed below. 



CMD Command 



Function Code: X'BO' 

Response Codes: 

X'OO' Element accepted for processing 
XMO" Element rejected, busy 

Modifiers: Unused 



MSG Command 



Function Code: X'BI' 

Response Codes: 

X'OO' Element accepted for processing 
X' 10' Element rejected, busy 

Modifiers: One-byte binary RSCS severity code 
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COMMAND REjQUEST ELEMENT 



BUILT BY: 
FUNCTION: 
DESCRIPTION: 



DMTNPT, DMTSML 

Execute an RSCS operator command 

This request element is passed by a line driver via GIVE/TAKE to the REX 
task in response to a command entry at a remote station. 



Length | Function | 
(n-1) I Code: X»00« | 



Unused 



RSCS Operator 
Command Line Text 



OPERATIONAL NOTES 



No response text is returned. Command responses are distributed via DMTMGX. 



Appendix C: RSCS Request Elements 289 



Elil ll^HlST ELEMENT 

BUILT BY: DHTNPT, DMTSML 

FUNCTION: Initiates or terminates processing of an input or output file. 

DESCRIPTION: This request element is passed via GIVE/TAKE to the AXS task by line 
drivers to effect local spool file access during communications with a 
remote station. 



Length |Function Code:| Unused | Modifiers 
(XM3') |X'01',X'02',| I 

I X'11», X»12' I I 



TAG Address 



I/O Area Address 



linkid 



OPERATIONAL NOTES 

The use and meaning of the various field depends on the requested function, as described 
below. Certain fields may be updated during request processing. The (updated) file 
request element is returned to the requestor as a GIVE response. 



0£en Infiut 

Function Code: X'01' 

Modifiers: Unused 

lag Address: Response field which points to the opened file's active TAG in DMTSYS 

I/O Area Address: Response field which points to a virtual page buffer containing the 
opened file's first VM/370 spool data buffer. 

linkid: Request field which specifies the requesting line driver's linkid. 

Response Post Codes: 

X'08' Terminal system error 

X'04' No file available 

X'02' Undefined linkid 

X'01' Previously open file returned 
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Function Code: X'11' 

Modifiers: X'80' Do not return possible previously opened file 

Tag Address: Request field which points to a prototype file TAG for the output file, 
constructed by the calling line driver. 

I/O Area Address: Response field which points to a virtual page buffer containing an I/O 
table, a write CCW, and a buffer for processing the output file. 

linkid: Request field which specifies the requesting line driver's linkid. 

Response Post Codes: 

X'04' Error, file not opened 

X'02' Undefined linkid 

X'01' Previously open file returned 



Close Input 

Function Code: X'02' 

Modifiers: 

X'80' Do not purge copy or file 

X'40' Purge all copies, and purge file 

Tag Address: Request field which points to the file's active TAG in DMTSYS, as supplied 
by open input. 

I/O Area Address: Unused 

linkid: Unused 

Response Post Codes: 

X'04' TAG not found, close failed 



Close Out£Ut 

Function Code: X'12' 

Modifiers: Unused 

Tag Address: Request field which points to a prototype file TAG for the output file, 
constructed by the calling line driver. This TAG is used to update the parameters 
to be set for the output file. 

I/O Area Address: Request field which points to the file's I/O area, as supplied by open 
output . 

linkid: Unused 

Response Post Codes: 

X'04' I/O area not found, close failed 
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IIM MERT ELEMENT 

BUILT BY: DMTCMX 

FUNCTION: Request line port allocation \ 

DESCRIPTION: This ALERT element is passed via ALERT to the LAX task (DMTLAX) to verify 
and reserve line ports for links being activated in response to a START 
command. 



Length | Function | Response | Unused 
(X'OF«) I Code: X»01«| Code | 



Line Address 



linkid 



Unused 



OPERATIONAL NOTES 

The use and meaning of the fields are described below. Certain fields are updated during 
processing. 

Response Codes: 

X»08» Specified line address not attached (CC=3) 
X'OU* Specified line address not BSC port device type 
X»02» Line not available 

Line Address: Request field specifying requested line address. Zero specification 
implies request for allocation of a switchable line from the port table. If 
successful, the port's line address is returned in this field as a response. 

linkid: Response field specifying the ID of the link which has reserved the particular 
requested line address (with response code X»02'). 
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MESSAGE REQUEST ELEMENT 



BUILT BY: 
FUNCTION: 
DESCRIPTION: 



DMTREX, DMTCMX, DMTAXS, DMTNPT, DMTSML 

Issue an RSCS message 

This request element is passed via GIVE/TAKE to the REX task, to specify 
the construction and distribution of an RSCS message (by DHTMGX) . 



U 



18 



1C 



Length | Function | Routing 
(n-1) I Code: X'02' | Code 



Receiver locid 



Severity 
Code 



Receiver userid 



Issuing Module Code 



Binary Message Number 



Unused 



Action 
Code 



8-byte Variable Substitution 
Values for Message Text 



OPERATIONAL NOTES 

The routing code and severity code from the message definition (in DMTMSG) are used when 
not supplied in the message request element. If the message is not defined in DMTMSG, it 
is constructed using the specifications in the message request element, and the "variable 
substitution values" become the message text, unmodified. 

Routing codes: 

X»80' Local BSCS console 
X'UO' Remote addressee 
X«20' Local user 
XMO» Local VM/37C operator 

No response text is returned. 
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PORT TABLE 



BUILT BY: 
FUNCTION: 
DESCRIPTION: 



Assembly of DMTSYS at RSCS generation 

Record allocation status of switchatle line ports available to RSCS 

The first doubleword of the table is reserved for control information. 
Each following halfword contains the virtual device address of a line port 
which may be dialed, and which is available to RSCS. 



10 



Number of Line Port Entries 
in Table 



Virtual Line Address 



Virtual Line Address 



I Virtual Line Address 
I 



Virtual Line Address 



Virtual Line Address 



Virtual Line Address 






OPERATIONAL NOTES 

The line port entries are marked "in use" by setting the high-order four bits of the 
entries to 1 's. 
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lERMIHATE REQUEST ELEMENT 

BUILT BY: DMTMPT, DMTSML 

FUNCTION: Terminate line driver task 

DESCRIPTION: This request element is passed via GIVE/TAKE to the REX task, to terminate 
line driver operation in response to a DRAIN command. 



I Length | Function | I 

I (1) I Code: X'03'l I 



OPERATIONAL NOTES 

There are no error conditions for the terminate function, so no response is made. 
However, line driver tasks must issue a WAIT request following a call to GIVE for 
terminate, because REX may not execute the request immediately. 
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APPENDIX D: CMS EQUATE SYMBOLS 



This appendix contains assembler language equate symbols used in CMS to reference data 
for: 

• CMS usage 

• CMS registers 
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CMS USAGE EQUATES 



field 
Name 

Bits defined in the 



CHANO 
CHAN1 
CHAN2 
CHAN3 
CHAHU 
CHANS 
CHANM 
EXTM 

ECMM 
BCKM 
WAIT 
PROB 

FOFM 
DOFH 
EUFM 
SIGM 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 



X'80 
X'40 
X'20 
X* 10 
X'08 

x'oa 

X"02 
X«01 

X'08 
X'04 
X'02 
X'01 

X'08 
X»04 
X'02 
X'01 



Bits defined in the 



ATTN 

SM 

CUE 

BUSY 

CE 

DE 

UC 

UE 

PCI 
ICL 
PGC 
PTC 
CDC 
CCC 
ICC 
CHC 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



X'80 
X'40 
X'20 
X'10 
X'08 
X'04 
X'02 
X'01 

X'80 
X'40 
X'20 
X' 10 
X'08 
X'04 
X'02 
X'01 



Field Eescription, Contents, Meaning 

E£09EH status word (PSW) 

Bit 00 - channel mask 
Bit 01 - channel 1 mask 
Bit 02 - channel 2 mask 
Bit 03 - channel 3 mask 
Bit 04 - channel 4 mask 
Bit 05 - channel 5 mask 
Bit 06 - input/output mask 
Bit 07 - external mask 

Bit 12 - extended control mode mask 

Bit 13 - machine check mask 

Bit 14 - wait state mask 

Bit 15 - problem state mask 

Bit 36 - fixed-point overflow mask 
Bit 37 - decimal overflow mask 
Bit 38 - exponent underflow mask 
Bit 39 - significance mask 

channel status word (CSH) 

Bit 32 - attention 

Bit 33 - status modifier 

Bit 34 - control unit end 

Bit 35 - busy 

Bit 36 - channel end 

Bit 37 - device end 

Bit 38 - unit check 

Bit 39 - unit exception 

Bit 40 - program-controlled interrupt 
Bit 41 - incorrect length 
Bit 42 - program check 
Bit 43 - protection check 
Bit 44 - channel data check 
Bit 45 - channel control check 
Bit 46 - interface control check 
Bit 47 - chaining check 
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Field 
Name 



Field Description, Contents, Meaning 



Common channel command codes 



Write 

Bead 

No operation 

Sense 

Write data 

Read data 

Seek 

Transfer in channel 

Write and space 1 

Read from console 

Set csector 

Search ID equal 

Ji£s defined in a channel command word (CCW) 

CD EQU X'80' Bit 32 - chain data 

CC EQU X'40' Bit 33 - command chain 

SILI EQU X»20' Bit 34 - suppress incorrect length 

SKIP EQU XMO' Bit 35 - suppress data transfer 

PCIF EQU X"08' Bit 36 - cause program control interrupt 

IDA EQU X'04' Bit 37 - indirect data address 



WRITE 


EQU 


X'01' 


READ 


EQU 


X'02" 


NOP 


EQU 


X'03' 


SENSE 


EQU 


x'oa' 


SRDATA 


EQU 


X'05' 


RDDATA 


EQU 


X'06« 


SEEK 


EQU 


X'07« 


TIC 


EQU 


X'08' 


WRITE 1 


EQU 


X«09» 


RDCONS 


EQU 


X'OA* 


SETSEC 


EQU 


X'23' 


SEARCH 


EQU 


X'31' 
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CMS REGISTER EQUATES 



Field 




*_.=:.=^_ 


Name 






General 


E!1E£2§§ E§Si§iSES 


RO 


EQU 





R1 


EQU 


1 


R2 


EQU 


2 


R3 


EQU 


3 


R4 


EQU 


4 


R5 


EQU 


5 


R6 


EQU 


6 


R7 


EQU 


7 


R8 


EQU 


8 


R9 


EQU 


9 


RIO 


EQU 


10 


R11 


EQU 


11 


R12 


EQU 


12 


R13 


EQU 


13 


R14 


EQU 


14 


R15 


EQU 


15 


Floating 


goint 


registers 


FO 


EQU 





12 


EQU 


2 


F4 


EQU 


4 


F6 


EQU 


6 


Extended 


control registers 


CO 


EQU 





CI 


EQU 


1 


C2 


EQU 


2 


C3 


EQU 


3 


CU 


EQU 


4 


C5 


EQU 


5 


C6 


EQU 


6 


C7 


EQU 


7 


C8 


EQU 


8 


C9 


EQU 


9 


CIO 


EQU 


10 


C11 


EQU 


11 


C12 


EQU 


12 


CIS 


EQU 


13 


C14 


EQU 


14 


C15 


EQU 


15 



Field Description, Contents, Meaning 
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AP£ENDIX E: DATA AREAS AND CONTROL BLOCKS REFJiENCES 



This appendix contains lists of CP, CHS, and RSCS control blocks. The lists contain 
information showing which modules reference the data areas or control blocks and, in some 
cases, information on how the data areas or control blocks are created and released. 
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CP CONTROL BLOCKS REFEBEHCES 

ACCTBLOK 

iuilt kl- DMKHVD 

Released hj: DMKHVD, DMKUSO 

Meferenced bj: DMKHVC, DMKHVD, DMKSPL 
ACNTBLOK 

Juilt b^: DHKACO, DMKHVD, DMKWRM 

Released by: DMKACO 

Referenced hy_: DMKACO, DMKCKP, DMKHVC, 
DMKHVD, DMKRSE, DMKWRM 

ALOCBLOK 

Built by: DMKCPI, DMKVDB 

Released by: DMKCPI, DMKVDB 

ieferenced by: DMKCPI, DMKMON, DMKPGT, 
DMKTDK, DMKVDB 

ESCBLOK 

MMlt by: DMKRGB 

Released bjy: DHKRGA 

Referenced by: DMKBSC, DMKRGF 

BUFFER 

Mill by: DMKCFM, DMKCPI, DMKERM, 
DMKGRF, DMKLNK, DMKLOG, DMKRGA, DMKRSP 

Released by: DMKCFM, DMKCPI, DMKGRF, 
DMKLHK, DMKRGA, DMKRSP 

Referenced by: DMKCDB, DMKCFG, DMKCFM, 
DMKCFP, DMKCFS, DMKCPI, DMKCSO, DMKCSP, 
DMKCST, DMKCSU, DMKERM, DMKGRF, DMKLNK, 

DMKLOG, DMKMSG, DMKRGF, DMKRSP, DMKSCN 

CCHREC 

Raili kl- DMKCCH 
Released by: DMKCCH 

Referenced hj: DMKCCH, DMKEIG, DMKSEV, 
DMKSIX 

CCPARH 

Built kl- DMKHLD, DMKSNC 

Released by: DMKNLD, DMKSNC 

Referenced by: DMKNLD, DMKSNC 



CHXELOK 

Built by: DMKDIA 

Released by: DMKVCA 

Referenced by: DMKCFP, DMKCQG, DMKDIA, 
DMKVCA, DMKVIO 

CKPELOK 

Built by: DMKRNH 
Released by: DMKRNH 
Referenced by: DMKRNH, DMKWRM 

CONTASK 

Built by: DMKCNS, DMKGRF, DMKQCN, 
DMKGRA, DMKRGB, DMKRNH 

Released by: 

Referenced by: DMKCNS, DMKEDM, DMKGRF, 
DMKMON, DMKNES, DMKQCN, DMKRGF, DMKRNH 

CORTABLE 

Assembled in DMKSYS. 

Released by: N/A 

Referenced by: DMKBLD, DMKCCW, DMKCDS, 

DMKCFS, DMKCPI, DMKCPV, DMKDGD, DMKDMP, 

DMKEDM, DMKFRE, DMKMCC, DMKMCH, DMKMON, 

DMKPAG, DMKPGS, DMKPSA, DMKPTR, DMKRPA, 

DHKSCH, DMKUDR, DMKUNT, DHKVMA 

CPEXBLOK 

Built by: DMKACO, DMKCDS, DMKCFM, 

DMKCPS, DMKCPV, DMKDIA, DMKGRF, DMKIOE, 

DMKIOF, DHKIOG, DMKIOS, DMKLOC, DMKMCC, 

DMKMCH, DMKMON, DMKPGT, DMKPTR, DMKQCN, 

DMKRGA, DMKRGB, DMKRNH, DMKRPA, DMKRSP, 

DMKSPL, DMKUSO, DMKVCA, DMKVDB, DMKVMA 



Released by: DMKDSP, 
DMKPTR, DMKVDB 

Referenced by: DMKACO, 

DMKCPV, DMKDIA, DMKDSP, 

DMKIOF, DMKIOS, DMKLOC, 

DMKPAG, DMKPGS, DMKPGT, 

DMKRGF, DMKRNH, DMKRPA, 

DMKSTK, DMKUSO, DMKVCA, 
DMKVSP 



DMKIOF, DMKMON, 



DMKCDS, 
DMKGRF, 
DMKMCH, 
DMKPTR, 
DMKRSP, 
DMKVDB, 



DMKCFM, 
DMKIOE, 
DMKMON, 
DMKQCN, 
DMKSPL, 
DMKVMA, 
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DDRREC 

luiii kl'- DMKVER 

Beleased bj: DMKVER 

Referenced bj: DMKVER 
DHPBREC 

Built b:x: MMM 

Released hj: DMKDMP 

Referenced bjr : DMKDMP, DMKEDM 
DMPINREC 

Built b^: DMKDMP 

Released h^: DMKDMP 

Referenced b^: DMKDMP, DMKEDM 
EMPKYREC 

Built bi: DMKDMP 

Released hj: DMKDMP 

Referenced b^: DMKDMP 
ECBLOK 

Built b:^: DMKBLD 

Released b^: DMKCFS, DMKUSO 

Referenced b:^: DMKBLD, DMKCDB, DMKCDS, 

DMKCFG, DMKCFP, DMKCFS, DMKDSP, DMKEDM, 

DMKLOG, DMKPRG, DMKPRV, DMKSCH, DMKTMR, 

DMKTRC, DMKUSO, DMKVAT 

ERRBLOK 

Built h^: DMKIOE 

Released bj;: DMKIOF 

Referenced b^ : DMKIOF 

lOBLOK 

Built bj: DMKACO, DMKCCW, DMKCFP, 

DMKCMS, DMKCPB, DMKCPI, DMKCPS, DMKCSO, 

DMKCSP, DMKCSU, DMKDGD, DMKDIA, DMKGIO, 

DMKGRF, DMKHVC, DMKIOS, DMKNLD, DMKRGA, 

DMKRGB, DMKSPL,DMKTDK, DMKVCA, DMKVDR, 
DMKVIO 

Released b^: DMKCFP, DMKCNS, DMKCPB, 

DMKCPI, DMKCPS, DMKCSO, DMKDAS, DMKDGD, 

DMKDIA, DMKGIO, DMKGRF, DMKHVC, DMKIOS, 

DMKMON, DMKNLD, DMKPAG, DMKRGA, DMKRGB, 

DMKRNH, DMKRSP, DMKSEP, DMKTDK, DMKVCA, 
DMKVIO 



Referenced hj: DMKACO, DMKBSC, DMKCCH, 

DMKCCiJ, DMKCFP, DMKCNS, DMKCPB, DMKCPI, 

DMKCPV, DMKCSO, DMKCSP, DMKCSU, DMKDAS, 

DMKDGD, DMKDIA, DMKDSP, DMKEDM, DMKGIO, 

DMKGRF, DMKHVC, DMKIOE, DMKIOS, DMKISM, 

DMKLOG, DMKMCC, DMKMON, DMKMSW, DMKNLD, 

DMKPAG, DMKPGT, DMKRGF, DMKRNH, DMKRSE, 

DMKRSP, DMKSEP, DMKSPL, DMKTAP, DMKTDK, 

EMKTRC, DMKUDR, DMKDNT, DMKVCA, DMKVDB, 
DMKVDR, DMKVIO 



IOBR3211 

Built bjr: DMKRSE 
Released bj: DMKIOE 
Referenced b^: DMKIOE, DMKRSE 

lOERBLOK 

Built bx: DMKBSC, DMKCCH, DMKDAS, 
DMKDIA, DMKIOE, DMKIOS, DMKRSE, DMKTAP, 
DMKVCA 

Released hj: DMKBSC, DMKCCH, DMKCCW , 

DMKCFP, DMKCNS, DMKCPS, DMKDAS, DMKDGD, 

DMKDIA, DMKGIO, DMKGRF, DMKIOE, DMKIOS, 

DMKMON, DMKNLD, DMKRGA, DMKRGB, DMKRNH, 
DMKRSE, DMKRSR, DMKTAP, DMKVIO 

Referenced b;?: DMKBSC, DMKCCH, DMKCCW, 

DMKCFP, DMKCNS, DMKCPV, DMKDAS, DMKDGD, 

DMKDIA, DMKEDM, DMKEIG, DMKGIO, DMKGRF, 

DMKIOE, DMKIOS, DMKMSH, DMKNLD, DMKRGF, 

DMKRNH, DMKRSE, DMKRSP, DMKSEV, DMKSIX, 

DMKTAP, DMKUNT, DMKVCA, DMKVIO 

IRMBLOK 

Built bj: DMKCFS 

Released bj: DMKCFS, DMKIOE 

Referenced b^: DMKCFS, DMKIOE 

LOCKBLOK 

Built bx: DMKLOC 

Released bj: DMKLOC 

Referenced by: DMKLOC 
MCHAREA 

Built b:^: DMKMCH 

Released hj: N/A 

Referenced b^r: DMKCCH, DMKCFS, DMKIOG, 
EMKMCH 
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MCRECORD 

iSilt b;^: DMKMCH 

leleased bj: N/A 

Refer enced bf: DMKMCH 
MDEREC 

Built bjf: DMKVER 

Released b^: DMKVER 

M§I§£§Q.ced bj: DMKVER 

MICBLOK 

Built bj: DhKCFS, DMKLOG 

Released b^: DMKCFS, DMKLOG, DMKUSO 

Referenced bjf: DMKBLD, DMKCFS, DMKDSP, 
DMKLOG 

MIHREC 

Built b]r: DMKVER 

Released hj: DMKVER 

Referenced bj: DMKVER 
HNHDR 

Built bjf: DMKMOM 

Released bj : DMKMON 

Referenced b£ : DMKMON 

MNOOO 

Built hY,: DMKMON 

Released b^: DMKMON 

Referenced b^: DMKMON 
MN097 

Built bj: DMKMON 

Released bj: DMKMON 

Referenced bx : DMKMON 
MN098 

Built bi: DMKMON 

Released bj: DMKMON 

Referenced bj: DMKMON 



MN099 

Built bi: DMKMON 
Released bj: DMKMON 
Referenced bj: DMKMON 

MN10X 

Built bj: DMKMON 
Released bj: DMKMON 
Referenced bj: DMKMON 

MN20X 

Built by: DMKMON 
Released bj;: DMKMON 
Referenced b^: DMKMON 

MNMOO 

Built bj: DMKMON 
Released bj: DMKMON 
Referenced bjr: DMKMON 

MN500 

Built bj: DMKMON 
Released bjr: DMKMON 
Referenced bj: DMKMON 

MN600DEV 

Built bj[: DMKMON 
Released bj: DMKMON 
Referenced bj: DMKMON 

MN600HDR 

Built b^: DMKMON 
Released bj: DMKMON 
Referenced bj: DMKMON 

MN700 

Built bjr: DMKMON 
Released bjr: DMKMON 
Referenced bj: DMKMON 
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MN802CTR 

liJili kl' DMKMON 

Released bjf: DMKHON 

leferenced bj: DMKMON 
MONCOM 

Buili kl' DMKMCC 

Released b^: DMKMOM 

Referenced bj: DMKCPV, DMKDMP, DMKMCC, 
DNKHON 

NCPTBL 

Built b^: DMKSMT 

Released b^: N/A 

Referenced bj : DMKNLD, DMKSNC 
BICBLOK 

Built b^: DMKNLD 

Released bj: DMKNLD 

Referenced b;^: DMKBLD, DMKCFT, DMKCKP, 

DMKCPI, DMKCQR, DMKHVD, DMKDIA, DMKHVD, 

DMKLOG, DMKNES, DMKNET, DMKHLD, DMKPSA, 

DHKQCN, DHKRGF, DHKRNH, DHKNRH 

OBRRECN (Long OBR) 

Built bjr: DMKIOF 

Released b^: DMKIOF 

Referenced bjy: DMKIOE, DMKIOF, DMKVER 
OBRREC (Short OBR) 

Built b^: DMKIOF 

Released b^: DMKIOF 

Referenced bj^: DMKIOF 
OHNDLIST 

Assembled into DMKSYS 

Referenced bj: DMKCKP, DMKCKS, DMKCPI, 
DMKDRD, DMKPAG, DMKPGT, DMKPTR, DMKSPL, 
DMKUDR, DMKVDB, DMKWRM 

PAGTABLE 

Built b^: DMKBLD 

Released b:^: DMKBLD, DMKPGS 

Referenced by: DMKBLD, DMKCFG, DMKCFP, 
DMKPGS, DMKVMA 



PGBLOK 



Built bx: DMKVAT 

Released bj: DMKCFP, DMKDSP 

Referenced bj: DMKCFP, DMKDSP, DMKVAT 



PSA 



Assembled as part of DMKSYS; part of CP 
nucleus. 



Ref eren 

DMKCCH 

DMKCFG 

DMKCKP 

DMKCPV 

DMKCST 

DMKDGD 

DMKEDM 

DMKGIO 

DMKIOG 

DMKLOG 

DMKMSG 

DMKOPR 

DMKPRV 

BMKRPA 

DMKSCN 

DMKSPL 

DMKTHI 

DMKUDR 

DMKVCH 

DMKVER 

DMKNRM 



ced bj: 
DMKCCH 
DMKCFM 
DMKCKS 
DMKCQG 
DMKCSU 
DMKDIA 
DHKEIG 
DMKGRF 
DMKIOS 
DMKMCC 
DMKMSW 
DMKPAG 
DMKPTR 
DMKRSE 
DMKSEP 
DMKSSP 
DMKTHR 
DMKUNT 
DMKVCN 
DMKVIO 



DMKACO 
DMKCDB 
DMKCFP 
DMKCNS 
DMKCQP 
DMKCVT 
DHKDMP 
DMKERM 
DMKHVC 
DMKISM 
DMKMCH 
DMKNES 
DMKPGS 
DMKQCN 
DMKRSP 
DMKSEV 
DMKSTK 
DMKTRA 
DMKDSO 
DMKVDB 
DMKVMA 



RCHBLOK 



Assembled 
DMKRIO. 



into 



CP 



DMKBLD, 
DMKCDS, 
DMKCFS, 
DMKCPB, 
DMKCSO, 
DMKDAS, 
DMKDRD, 
DMKFMT, 
DMKIOE, 
DMKLNK, 
DMKMID, 
DMKNET, 
DMKPGT, 
DMKRGF, 
DMKSAV, 
DMKSIX, 
DMKTAP, 
DMKTRC, 
DMKVAT, 
DMKVDR, 
DMKVMI, 



nucleus 



DMKBSC, 
DMKCFD, 
DMKCFT, 
DMKCPI, 
DMKCSP, 
DMKDEF, 
DMKDSP, 
DMKFRE, 
DMKIOF, 
DMKLOC, 
DMKMON, 
DMKNLD, 
DMKPRG, 
DMKRNH, 
DMKSCH, 
DMKSNC, 
DMKTDK, 
DMKTRM, 
DMKVCA, 
DMKVDS, 
DMKVSP, 



module 



Released bj: DMKRIO 

Referenced bj: DMKCCH, DMKCFP, DMKCKP, 

DMKCPB, DMKCPI, DMKCPV, DMKCQP, DMKDIA, 

DMKEDM, DMKIOG, DMKIOS, DMKMON, DMKNES, 

DMKSCN, DMKSSP, DMKVCH 



RCUBLOK 



Assembled 
DMKRIO. 



into 



CP 



nucleus 



module 



Released bj: DMKRIO 

Referenced b^: DMKCCH, DMKCFD, DMKCKP, 

DMKCPB, DMKCPI, DMKCPV, DMKCOP, DMKDIA, 

DMKEDM, DMKIOF, DMKIOS, DMKMON, DMKNES, 

DMKNLD, DMKSCN, DMKSSP, DMKVCH 

RCHTASK 

Built b^: DMKCCW 

Released bj: DMKCCW, DMKUNT 

Referenced b^: DMKCCH, DMKHVC, DMKISM, 
DMKTRC, DMKUNT 
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EDEVBLOK 










EMKNEM, 
DHKPTR, 


DMKNET, 
DMKQCN, 


DMKNLD, DMKPGS, 
DMKRGF, DMKRNH, 


DMKPSA, 
DMKRPA, 


Built bx: 








DMKRSE, 


DMKRSP, 


DMKSEP, DMKSEV, 


DMKSIX, 












DMKSNC, 


DMKSPL, 


DMKSSP, DHKTAP, 


DMKTDK, 


B.§l§^sed b^ : 








DMKTHI, 


DMKTRA, 


DMKTRC, DMKTRM, 


DMKUDR, 












DMKUNT, 


DMKUSO, 


DMKVAT, DMKVCA, 


DMKVCH, 


l^f §E§Ii2§^ b_Y : 


DMKACO, 


DHKBLD, 


DMKBSC, 


DMKVDB, 


DMKVDR, 


DMKVDS, DMKVER, 


DMKVMA, 


DMKCCH, 


DMKCCW, 


DMKCFC, 


DHKCFD, 


DMKCFG, 


DMKVSP, 


DMKWRM 






DMKCFM, 


DBKCFP, 


DHKCFS, 


DMKCFT, 


DMKCKP, 










DMKCKS, 


DMKCNS, 


DMKCPB, 


DMKCPI, 


DMKCPV, 


SAVTABLE 








DMKCQG, 


DMKCQP, 


DMKCQR, 


DMKCSO, 


DMKDAS, 










DMKDEF, 


DMKDIA, 


DMKDMP, 


DMKDRD, 


DMKEDM, 


Built bj: 






DMKGRF, 


DMKHVC, 


DMKHVD, 


DMKIOE, 


DMKIOF, 










DMKIOG, 


DMKIOS, 


DMKLNK, 


DMKLOG, 


DMKMCC, 


lei ease d b^ : 






DMKHON, 


DMKMSW, 


DMKNES, 


DMKNET, 


DMKNLD, 










DMKOPR, 


DHKPAG, 


DMKPGT, 


DMKPSA, 


DHKPTR, 


S§f§I§S2®^ ^^* 


DMKCFG, DMKCFP 




DMKQCN, 


DMKRGF, 


DMKRNH, 


DMKRSE, 


DMKRSP, 










DMKSCN, 


DMKSEP, 


DMKSNC, 


DMKSPL, 


DMKSSP, 


SDRBLOK 








DWKTAP, 


DMKTDK, 


DMKTRM, 


DMKUHT, 


DMKUSO, 










DMKVCH, 


DMKVCN, 


DMKVDB, 


DMKVDR, 


DMKVDS, 


Mill hi' DMKIOF 




DMKVER, 


DMKVIO, 


DMKWRM 
























Released 


[ bi: DMKIOE 




RECBLOK 




























l§f§i®iiced b_Y: 


DMKIOE, DMKIOF 




Built 


by: DMKCKS, DMKCPI, 


DMKPGT, 











DMKRSP, DMKVSP, DMKWRM 

Released bj: DMKPGT, DMKSPL, DMKUSO 

Meferenced b^ : DMKCKP, DMKCKS, DMKCPI, 
DMKEMP, DMKEDM, DMKPGT, DMKRSP, DMKSPL, 
DMKVSP, DMKWRM 

RECPAG 

Built bj: DMKIOF 

Released bj: DMKIOF 

Referenced bj: DMKIOF, DMKIOG 
ESPLCTL 

luilt hx: DMKRSP 

^ele^M hi- DMKRSP 

Re|erenced bj : DMKCKP, DMKCQP, DMKCSO, 
DMKEDM, DMKRSP, DMKSPL 

SAVEAREA 

Built bjy: DMKCPI, DMKPSA 

Released b^: DMKPSA 



Referenced b_Y: 


DMKACO, 


DMKBLD, 


DMKBSC, 


DMKCCH, 


DMKCCW, 


DMKCDB, 


DMKCDS, 


DMKCFC, 


DMKCFD, 


DMKCFG, 


DMKCFM, 


DMKCFP, 


DMKCFS, 


DMKCFT, 


DMKCKS, 


DMKCNS, 


DMKCPB, 


DMKCPV, 


DMKCQG, 


DMKCQP, 


DMKCQR, 


DMKCSO, 


DMKCSP, 


DMKCST, 


DMKCSU, 


DMKDAS, 


DMKDEF, 


DMKDGD, 


DMKDIA, 


DMKDRD, 


DMKEIG, 


DMKERM, 


DMKGIO, 


DMKGRF, 


DMKHVD, 


DMKIOE, 


DMKIOF, 


DMKIOG, 


DMKIOS, 


DMKISM, 


DMKLNK, 


DMKLOG, 


DMKMCC, 


DMKMCH, 


DMKMID, 


DMKMON, 


DMKMSG, 


DMKMSW, 



SEGTABLE 

Built by: DMKBLD 

Released bj;: DMKBLD 

Referenced bj : DMKBLD, DMKCPI, DMKPGS, 
DMKVMA 

SFBLOK 

Built hj: DMKCKS, DMKNLD, DMKSPL, DMKWRM 

Released b;^: DMKCKS, DMKRSP, DMKSPL, 
DMKUSO 

Referenced b^: DMKCKP, DMKCKS, DMKCPI, 

DMKCQG, DMKCQR, DMKCSO, DMKCSP, DMKCST, 

DMKCSU, DMKDMP, DMKDRD, DMKEDM, DMKNLD, 

DMKRSP, DMKSEP, DMKSPL, DMKUSO, DMKVSP, 
DMKWRM 

SHQELOK 

Built bjj: DMKCSP, DMKWRM 

Released bj;: DMKCSP 

Referenced b^: DMKCKS, DMKCQR, DMKCSP, 
DMKSPL, DMKWRM 



SHRTABLE 

Built hj: DMKCFG 

Released b;^: DMKPGS, DMKVMA 

Referenced b^: DMKCFG, DMKCFP, DMKPGS, 
DMKVMA 
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SPLINK 



Assembled 
DMKSYS. 



into 



CP 



nucleus 



module 



Refer en ced bj: DMKCKS, DMKDRD, DMKRSP, 
DMKSPL, DMKVSP 



SWPTABLE 

Mill hi' DMKBLD, DMKVMA 

i§l eased by: DMKBLD 

Referenced by: DMKBLD, DMKCFG, DMKEDM, 
DMKPGS, DMKVMA 

SYSLOCS 

Assembled into CP nucleus module 
DMKSYS. 

Referenced bj: DMKACO, DMKBLD, DMKCFS, 
DMKCFT, DMKCKP, DMKLOC, DMKLOG, DMKUDR, 
DMKDSO 

SYSTBL 

Assembled into DMKSNT. 

Referenced bj: DHKCFG, DMKCFP 

TNSREC 

Built hi- DMKIOF 
Released b^: DMKIOF 
Referenced b^: DMKIOF 

TREXT 

Built hj: DMKTRA 

Released b^: DMKTRA, DMKTRC, DMKUSO 

Referenced bx : DMKCFG, DMKCFM, DMKCFP, 
DMKESP, DMKEDM, DMKPGS, DMKPRG, DMKPRV, 
DMKPSA, DMKTHR, DMKTRA, DMKTRC, DMKVIO 

TRQBLOK 

Built by: DMKBLD, DMKCFC, DMKCFS, 
DMKCPI, DMKMCC, DMKQCN 

Released b^y: DMKCFM, DMKCFS, DMKMCC, 
DMKMON, DMKQCB, DMKUSO 

Referenced bj : DMKBLD, DMKCDS, DMKCFC, 

DMKCFM, DMKCFP, DMKCFS, DMKCPI, DMKGRF, 

DMKLOG, DMKMCC, DMKMID, DMKMON, DMKPSA, 

DMKQCN, DMKRGF, DMKSCH, DMKTMR, DMKUSO 



UDBFBLOK 

Built bjr: DMKDEF, DMKHVD, DMKSPL 

Released bj: DMKDEF, DMKHVD, DMKSPL 

Referenced bj : DMKDEF, DMKHVC, DMKLNK, 
DMKLOG, DMKSPL, DMKUDR 

UDEVBLOK 

Built bj;: DMKCSP, DMKUDR 

Released bj: DMKCSP, DMKUDR 

Referenced bj: DMKDEF, DMKDIR, DMKHVD, 
DMKLNK, DMKLOG, DMKSCN, DMKUDR, DMKVDB , 
DMKVDS 

UDIRBLOK 

Built bj: DMKCSP 

Released bj: DMKCSP 

Referenced bj: DMKCSP, DMKDEF, DMKDIR, 
DMKHVC, DMKHVD, DMKLNK, DMKLOG, DMKSPL, 
DMKUDR 

UMACBLOK 

Built bjf: DMKDIR 

Released bj: DMKDIR 

Referenced bj: DMKDEF, DMKDIR, DMKHVC, 
DMKHVD, DMKLOG, DMKSPL, DMKUDR 

VCHBLOK 

Built b^: DMKVDS 

Released by.: DMKUSO 

Referenced bjr: DMKCFM, DMKCFP, DMKCKP, 

DMKCPB, DMKCPV, DMKCQS, DMKCSP, DMKCSU, 

DMKDEF, DMKDGD, DMKDIA, DMKDSP, DMKEDM, 

DMKGIO, DMKLNK, DMKLOG, DMKPRV, DMKSCN, 

DMKSPL, DMKUSO, DMKVCH, DMKVCN, DMKVDB, 

DMKVDS, DMKVIO, DMKVSP 

VCONCTL 

Built b^: DMKVDS 

Released bj: DMKVDR 

Referenced bj: DMKCFP, DMKGRF, DMKLOG, 
DMKRGF, DMKVCN, DMKVDR 
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VCUBLOK 

laiit hi' DMKVDS 

Released bj: DMKUSO 

lilerenced by: DMKCFM, DMKCFP, DMKCKP, 

DMKCPB, DMKCPV, DMKCQG, 

DWKDEF, DMKDIA, DMKDSP, 

DMKMLD, DMKPRJ, DMKSCN, 

DMKVCH, DMKVCH, DMKVDB, 

DMKVSP 

VDEVBLOK 



DMKCSP, DMKCSU, 
DMKEDM, DMKLOG, 
DMKSPL, DMKUSO, 
DMKVDS, DMKVIO, 



Built b^: DMKLOG, DMKVDS 



Released bj: DMKUSO 



Re.fere 
DMKCFM 
DMKCQG 
DMKCSU 
DHKDSP 
DMKHVD 
DMKQCN 
DMKTRC 
DMKVCN 
DMKVIO 

VFCBBLOK 



nc ed b^ : 
DMKCFP, 
DMKCQP, 
DMKDEF, 
DMKEDM, 
DMKIOS, 
DMKRGF, 
DMKUNT, 
DMKVDB, 
DMKVSP 



DMKACO, 
DMKCKP, 
DMKCSO, 
DMKDGD, 
DMKGIO, 
DMKLNK, 
DMKSCN, 
DMKUSO, 
DMKVDR, 



DMKCCW, 
DMKCPB, 
DMKCSP, 
DMKDIA, 
DMKGRF, 
DMKLOG, 
DMKSPL, 
DMKVCa, 
DMKVDS, 



DMKCFG, 
DMKCPV, 
DMKCST, 
DMKDBD, 
DMKHVC, 
DMKNLD, 
DMKTHI, 
DMKVCH, 
DMKVER, 



iailt kl' DMKCSO, DMKCFG 
Released bj: DMKVDR 
Mefeienced b^: DMKCSO, DMKVSP 

VMABLOK 

M«iit kX! DMKBLD, DMKCFG 

Released b^: DMKBLD, DMKPGS, DMKVMA 

le|erenced bj^: DMKCFG, DMKPGS, DMKVMA 
VMBLOK 

Built b;y: DMKBLD 



Released bj: DMKBLD, 
DMKUSO 

Referenced bjj: DMKACO 

dmkxcch""dmkcdb, DMKCDS 

emkcfg, dmkcfm, dmkcfp 

DMKCKP, DMKCKS, DMKCNS 

DMKCPV, DMKCQG, DMKCQP 

DMKCSP, DMKCST, DMKCSU 

DMKDIA, DMKDRD, DMKDSP 

DMKGIO, DMKGRF, DMKHVC 

DMKIOG, DMKIOS, DMKISM 

DMKMCC, DMKMCH, DMKMID 

DMKMSH, DMKNES, DMKNET 

DMKPER, DMKPGS, DMKPGT 

DMKPSA, DMKPTR, DMKQCN 

DMKRPA, DMKRSE, DMKRSP 

DMKSEP, DMKSHC, DMKSPL 

DMKTRA, DMKTRC, DMKUDR 

DMKVAT, DMKVCA, DMKVCH 

DMKVDR, DMKVDS, DMKVER 
DMKVSP 



DMKDIA, DMKLOG, 



DMKBLD, 
DMKCFS, 
DMKCFS, 
DMKCPB, 
DMKCQR, 
DMKDEF, 
DMKEDM, 
DMKHVD, 
DMKLNK, 
DMKMON, 
DMKNLD, 
DMKPRG, 
DMKRGF, 
DMKSCH, 
DMKTHI, 
DMKUNT, 
DMKVCN, 
DMKVIO, 



DMKXCCH 
DMKCFD, 
DMKCPT, 
DMKCPI, 
DMKCSO, 
DMKDGD, 
DMKERM, 
DMKIOE, 
DMKLOG, 
DMKMSG, 
DMKPAG, 
DMKPRV, 
DMKRNH, 
DMKSCN, 
DMKTMR, 
DMKUSO, 
DMKVDB, 
DMKVMA, 



VSPLCTL 

Built b^: DMKDRD, DMKVSP 

Released bj: DMKVSP 

Relesenced bj: DMKCKP, DMKCSP, DMKDRD, 
DMKEDM, DMKSPL, DMKVSP 

VSPXBLOK 

Built bi: DMKCST 

Released b^: DMKCST 

Referenced bj: DMKCKP, DMKCQG, DMKCSP, 
DMKCST, DMKSPL, DMKVDR 

XINTBLOK 

Built bj[: DMKCFP, DMKCPB, DMKDSP, 
DMKSGRF, DMKRGA, DMKSCH, DMKTMR 

Released bj: DMKCFP, DMKDSP, DMKSCH, 
DMKTRM 

Referenced bj: DMKCFP, DMKCPB, DMKDSP, 
DMKSCH, DMKTRM 
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CMS CONTROL BLOCK REFERENCES 

ABTAB 

Assembled as part of DHSNUC. 

Referenced hj: DMSBAB, DMSDOS, DMSITP 
ABHSECT 

Assembled as part of DHSNUC 

Referenced bj: DMSABN, DMSDBG, DMSFRE, 
DMSITI, DMSITP, DMSITS 

ADTSECl 

Assembled as part of DMSNDC. 

Referenced b^: DMSABN, DMSACC, DMSACF, 

DMSACM, DHSALU, DMSAMS, DMSAHE, DMSARN, 

DBSARX, DMSASM, DMSASN, DMSAUD, DMSBOP, 

DMSESC, DMSBHR, DMSCMP, DMSCPY, DMSDIO, 

DMSDLB, DMSDLK, DMSDSK, DBSDSL, DMSERS, 

DMSEXC, DMSEXT, DMSFOR, DMSHSM, DMSINS, 

DMSLAD, DMSLAF, DMSLBM, DMSLDS, DMSLFS, 

DMSLKD, DMSLIU, DMSLST, DBSMVE, DMSPUN, 

DMSQRY, DMSRNM, DMSROS, DMSSET, DMSSOP, 

DHSSTT, DMSTQQ, DMSTRK, DMSUPD, DMSXCP 

AFTSECT 

Assembled as part of DMSNUC; also 
created and released dynamically by 
DHSLAF. 

Referenced by: DMSBRD, DMSBWR, DMSERS, 
DMSINt7~DMSLAF, DMSPNT, DMSRNM, DMSSOP, 
DMSSTT, DMSTPE 

ANCHSECT 

Built by: DMSSTG 

Released bjf: Hot released 

Referenced by: DMSDOS, DMSSMN 
BATLSECT 

Assembled as part of DMSBTP. 

Referenced by: DM S CIO, DM SITE, DMSPIO 
BBOX 

Assembled as part of DHSNUC. 

Referenced by: No CHS references. This 
block is used by the DOS supervisor. 

BGCOH 

Assembled as part of DHSNUC. 

Referenced by: DHSAHS, DHSASN, DHSBAB, 
DHSBOP, DHSCLS, DHSDLB, DMSDLK, DHSDHP, 



DHSDOS, DHSDSV, DHSFCH, DHSFET, DMSINS, 

DMSITP, DMSILU, DM^OPL, DMSOPT, DHSPRV, 

DHSRRV, DHSSET, DHSSHN, DHSSRV, DMSVSR, 
DMSXCP 

CHSTAXE 

Built by: DHSSVT 

Released by: DHSSVT 

Referenced by: DHSCIT, DHSSVT 
CVTSECT 

Assembled as part of DHSNUC. 

Referenced by: DHSINS 
DBGSECT 

Assembled as part of DHSNUC. 

Referenced by: DMSDBD, DHSDBG, DHSITE. 

DEVSECT 

Assembled as part of DHSNUC. 
Referenced by: DHSTIO, DHSTPE 

DEVTAB 

Assembled as part of DMSNUC. 

Referenced by: DHSASN, DHSDBD, DHSEDX, 
DHSINl" 

DIOSECT 

Assembled as part of DHSNUC. 
Referenced by: 

DMSCCB 

Built by: N/A 

Released by: N/A 

Referenced by: DMSXCP 
DOSSECT 

Built bj^: DHSDLB 

Released by: DHSDLB, DHSABN 

Referenced by: DHSAHS, DMSBOP, DHSCLS, 
DHSDLB, DHSDLK, DHSDSV, DHSOPL, DHSRRV, 
DHSSRV, DHSSVT, DHSVIP, DMSXCP 
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EDCB 

Buili kl- DMSEDX 

Released bjr: DMSEDI 

Eeferenced bj: DMSEDC, DMSEDI, DMSEDX, 
DMSGIO, DMSSCB 

ERDSECT 

Assembled as part of DMSHUC. 
Referenced bj: D MS ERR 
EXTSECT 

Assembled as part of DMSNUC. 

Referenced bjr : DMSINS, DMSINT, DMSIOW, 
DMSITE, DMSQRY, DMSSET, DMSSMN, DMSSVN, 
DMSSVT 

EXTUAREA 

Assembled as part of DMSNUC. 
No CMS references. 

ICBSECI 

Built b:^: DMSFLD 

Released b:^^ DMSFLD, DMSABN 

Referenced bjj: DMSALU, DMSARN, DMSARX, 

DMSASM, DMSDSL, DMSFCH, DMSFLD, DMSHSM, 

DMSLDS, DMSMVE, DMSQRY, DMSROS, DMSSAB, 

DMSSBD, DMSSBS, DMSSCT, DMSSEB, DMSSOP, 
DMSSQS, DMSSVN, DMSSVT 

BCHTAB 

Assembled as part of DMSNUC. 
Referenced b_x: DMSDOS, DMSFET 
fICL 

Assembled as part of DMSNUC. 

Seferenced b^: No CMS references. This 
block is used by the DOS supervisor. 

FRDSECT 

Assembled as part of DMSNUC. 
Referenced b_x: DMSFRE 



FSTD 

Built by: N/A 

Released bj: N/A 

Referenced hj: DMSCPY, DMSEDX, DMSEXC, 
DMSGND, DMSNCP, DMSTPE 

FSTSECT 

Milti ^1- DMSACF 

Released b^ : DMSALU 

Referenced bj : DMSACF, DMSAMS, DMSARN, 

DMSABX, DMSASM, DMSBOP, DMSBRD, DMSBSC, 

DMSBHH, DMSCPY, DMSDLK, DMSDSK, DMSDSL, 

DMSERS, DMSHSM, DMSLAF, DMSLBM, DMSLKD, 

DMSMDP, DMSMVE, DMSRNM, DMSSTT, DMSTPE, 
DMSUPD, DMSZAP 

FVSECT 

Assembled as part of DMSNUC. 

Referenced b^: DMSABN, DMSACC, DMSACF, 

DHSACM, DMSALU, DMSAUD, DMSBTB, DMSBTP, 

DMSBHR, DMSCIT, DMSCBD, DMSCHR, DMSCWT, 

DMSDIO, DMSDSK, DMSERS, DMSEXC, DMSFNS, 

DMSINT, DMSITE, DMSITI, DMSITP, DMSITS, 

DMSLFS, DMSMOD, DMSQHY, DMSRNM, DMSTPE, 
DMSTQQ 

lOSECT 

Assembled as part of DMSNUC. 

Referenced bj: DMSABN, DMSHDI, DMSINT, 
DMSITI 

KEYSECT 

Built bjr: DMSSVT 

Released bj: DMSSVT 

Referenced bjr: DMSSBD, DMSSVT 
LDRST 

Built bj: DMSLDR 

Released by.: DMSLDR 

Referenced bj^: DMSLDR, DMSLGT, DMSLIB, 
DMSLIO, DMSLSB 

LUBTAB 

Assembled as part of DMSNUC. 

Referenced b;^* DMSBOP, DMSCLS, DMSDLB, 
DMSFCH, DMSLLU, DMSOPL, DMSPRV, DMSRRV, 
DMSSET, DMSSRV, DMSXCP 
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NICL 

Assembled as part of DMSNUC. 

Referenced h^: DMSBOP, DMSCLS, DMSDLB, 
DMSELK, DHSDSV, DHSLLU, DHSPSV, DMSXCP 



NUCON 



Assembled as part of DMSNOC. 



Ref erenc 

DMSACM 

DMSARX 

DMSEOP 

DMSBWR 

DMSCMP 

DMSCWT 

DMSCLK 

DMSDSV 

DMSEXC 

DMSFNS 

DMSGND 

DMSINI 

DMSITE 

DMSLBT 

DMSLIB 

DMSLSB 

DMSMVE 

DMSOVS 

DMSQRY 

DMSRRV 

DMSSEB 

DMSSQS 

DMSSVN 

DMSTPE 

DMSVIP 



ed b_Y: 
DMSALU 
DMSASM 
DMSBRD 
DMSCAT 
DMSCPF 
DMSDBD 
DMSDMP 
DMSEDI 
DMSEXT 
DMSFOR 
DMSHDI 
DMSINM 
DMSITI 
DMSLDR 
DMSLIO 
DMSLST 
DMSOPL 
DMSPIO 
DMSRDC 
DMSSAB 
DMSSET 
DMSSRT 
DMSSVT 
DMSTQQ 
DMSVSR 



DMSABN 
DMSAMS 
DHSASH 
DMSBSC 
DMSCIO 
DMSCPY 
DMSDBG 
DMSDOS 
DMSEDX 
DMSFCH 
DMSFRE 
DMSHDS 
DMSINS 
DMSITP 
DMSLDS 
DMSLKD 
DBSLSY 
DMSOPT 
DMSPNT 
DMSHNE 
DMSSBS 
DMSSLN 
DMSSRV 
DMSSYN 
DMSTYP 
DMSXCP 



DMSACC, 
DNSABE 
DMSAUD 
DMSBTB 
DMSCIT 
DMSCRD 
DMSDIO 
DMSDSK 
DMSERR 
DMSFET 
DMSGIO 
DMSHSM 
DMSINT 
DMSITS 
DMSLFS 
DMSLLU 
DMSMDP 
DMS0R1 
DMSPRT 
DMSRNM 
DMSSCN 
DMSSMN 
DMSSSK 
DHSTIO 
DMSUPD 

DMSZAP 



DMSACF, 
DMSARN, 
DMSBAB, 
DMSBTP, 
DMSCLS, 
DMSCWR, 
DMSDLB, 
DMSDSL, 
DMSERS, 
DMSFLD, 
DMSGLB, 
DMSINA, 
DMSIOW, 
DBSLBM, 
DMSLGT, 
DMSLOA, 
DMSMOD, 
DMSOVR, 
DMSPRV, 
DMSROS, 
DMSSCT, 
DMSSOP, 
DMSSTT, 
DMSTPD, 
DMSVIB, 



OPSECT 



Assembled as part of DMSNUC. 



S§l§£§nced b;^: DMSABN, DMSARX, DMSASM, 

DMSCRD, DMSCHR, DMSCWT, DMSDBG, DMSEXC, 

DMSEXT, DMSHSM, DMSINS, 

DMSSBD, DMSSBS, DMSSCT, 

DMSSQS, DMSSVN, DMSSVT 



DMSINT, DMSROS, 
DMSSEB, DMSSOP, 



OSFST 



Mill hi' DMSROS 

Released bj: DMSALU 

Referenced bj^: DMSABN, DMSALU, DMSBOP, 
DMSDLK, DMSFCH, DMSMVE, DMSROS, DMSRRV, 
DMSSOP, DMSSRV, DMSSTT 

OVSECT 

Built by: N/A 

Released bji N/A 

DMSITS, DMSOVR 



PCTAB 

Assembled as part of DMSNUC. 

Keferenced bj: DMSBAB, DMSDOS, DMSITP 
PDSSECT 

Built hj: DMSSVT 

Released bj: DMSSVT 

Referenced bj: DMSSVT 
PGMSECT 

Assembled as part of DMSNUC. 

Referenced bj: DMSITP, DMSSAB, DMSSLN, 
DMSSMN, DMSSVT 

PIEADR 

Assembled as part of DMSNUC. 

Referenced bj: DMSBAB, DMSDOS, DMSITP 
PIB2TAB 

Assembled as part of DMSNUC. 

Referenced b:^ : DMSBAB, DMSDOS, DMSITP 
PUBADR 

Assembled as part of DMSNUC. 

Referenced b^ : DMSBOP, DMSCLS, DMSDLK, 
DMSDSV, DMSLLU, DMSPRV, DMSXCP 

SSAVE 

Built bj: DMSITS 

Released b^: DMSITS 

Referenced bjr: DMSABN, DMSBSC, DMSDBG, 
BMSDLB, DMSERR, DMSFLD, DMSFRE, DMSITP, 
DMSITS, DMSLDR, DMSOVS, DMSSMN 

SUBSECT 

Assembled as part of DMSNUC. 

DMSABN, DMSINM, DMSINT 
SVCSECT 

Assembled as part of DMSNUC. 

Referenced b^: DMSCIT, DMSFRE, DMSHDS, 
EMSINT, DMSOVR, DMSOVS, DMSSLN 



Appendix E: Data Areas and Control Blocks References 311 



SVEARA Refeienced hj: DMSAMS, DMSBOP, DMSDOS, 

DMSEDX, DMSEXC, DMSINT, DMSSET, DMSVIB, 
Assembled as part of DMSNDC. DMSVSB 

Eeferenced bj: DMSBAB, DMSDOS, DMSITP TSOBLKS 

SYSCOM Assembled as part of DMSNUC. 

Assembled as part of DMSHUC. Referenced bj: DMSSET, DMSZAP 

Referenced bjf: DMSBAB, DMSBOP, DMSDOS, USERSECT 
DHSFET, DMSITP, DMSSMS 

Assembled as part of DMSNUC. 
SYSHAMES 

Ho CMS references. 
Assembled as part of DMSNUC. 
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ISCS CONTROL BLOCKS REFERENCES 
ASYNE 

Released hj: DMTASY, DMTASK 

Seferenced bjj: DMT AS Y, DMTEXT, DMTIOM, 
DMTSIG 

EUFDSECT 

BuilJt h^: DMTSHL 
Seleased b^: DMTSML 
l^Jsrenced b^: DMTSHL 

COMDSECT 

laili kl5 DMTCOM 

l^l^^sed bju: N/A 

Referenced bj: DMTAXS, DMTCMX, DMTMGX, 
DMTBPT, DMTREX, DMTSML 

DEVTABLE 

Built hj: DMTNPT 
Released bjj: DMTNPT 
Referenced bj: DMTNPT 

FREEE 

Built bj: DMTQRQ 

Released hj: DMTQRQ 

Referenced hj: DMTASK, DHTINI, DMTQRQ 

GIVEE 

Built bi: DMTGIV 

Released bjf; DMTAKE, DMTASK 

Referenced hj: DMTAKE, DMTASK, DMTGIV 



lOE 



Built bj: DMTIOM 

Released b^: DMTIOM 

Referenced b^: DMTASK, DMTIOM, DMTREX 



lOTABLE 

Built bi: DMTIOM, DMTCRE, DMTNPT, 
DMTREX, DMTSML 

Released bj: DMTNPT, DMTSML 

Referenced bj: DMTAXS, DMTCMX, DMTCRE, 
DHTINI, "DMTIOM, DMTREX, DMTSML 

LINKTABL 

Assembled into DMTSYS at system 
generation; also built by DMTCMX. 

Released by: DMTCMX 

Referenced by: DMTAXS, DMTCMX, DMTCOM, 
DMTCrI, DMTLAX, DMTMGX, DMTNPT, DMTREX, 
DMTSML 

REQBLOCK 

Euiit by: DMTNPT 

Released by: DMTNPT 

Referenced by: DMTNPT 

SVECTORS 

Assembled into DMTVEC at system 
generation; resides in the RSCS 
nucleus. 

Referenced by: DMTAKE, DMTASK, DMTASY, 

DMTAXS, DMTCMX, DMTCOM, DMTCRE, DMTDSP, 

DMTEXT, DMTGIV, DMTINI, DMTIOM, DMTLAX, 

DMTMGX, DMTNPT, DMTQRQ, DMTREX, DMTSIG, 

DMTSML, DMTSTO, DMTSVC, DMTHAT 

TAG 

Built hj: DMTAXS 

Released by: DMTAXS 

Referenced by: DMTAXS, DMTCMX, DMTNPT, 
DMTSML 

TAGAREA 

Built bjy: DMTAXS 

Released by: n/a 

Referenced by: DMTAXS 
TANKDSEC 

Built by: DMTSML 

Released by: DMTSML 

Referenced by: DMTSML 
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TASKE Released bj: DMTSML 

Built b:^: DM TASK Keferenced bjr: DMTSML 

Released b^i: DMTASK TAREA 

5®^6renced by: DMTAKE, DMTASK, DMTASY, Assembled into each task module. 

DMTAXS, DMTCOM, DMTDSP, DMTEXT, DMTGIV, 

DMTINI, DMTIOM, DMTNPT, DMTPST, DMTREX, Released by: DMTASK 

DMTSIG, DMTSMl, DMTSTO, DMTSVC, DMTHAT 

Referenced bjf : DMTAKE, DMTASK, DMTASY, 
TCTDSECT DMTCOM, DMTCRE, DMTDSP, DMTEXT, DMTGIV, 

DMTIOM, DMTREX, DMTSIG, DMTSTO, DMTSVC 
Built bjr: DMTSML 
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